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SHADED  RELIEF  IMAGES 
FOR  CARTOGRAPHIC  APPLICATIONS 


It  is  the  task  of  the  eart<  ,'iapher  to  display  spatially  distributed  data  in  the 
most  cost-effective  and  easily  perceived  manner  available.  Since  the  uses  to  which 

the  data  will  be  applied  are  varied,  the  optimum  way  of 
I.  INTRODUCTION  displaying  the  data  will  also  vary.  This  report  examines 
a  variety  of  related  means  of  displaying  one  type  of  data, 
terrain  elevation,  for  which  versatile  and  efficient  software  has  been  produced  at  the 
Automated  Cartography  Branch,  U.S.  Army  Engineer  Topograhic  Laboratories  (ETL). 


The  problem  of  presenting  terrain  relief  is  not  new.  The  history  of  cartography 
has  been  a  progression  from  crude  symbols  representing  mountains,  to  hachures. 
and  then  to  the  familiar  contour  lines  as  a  means  of  portraying  the  surface  of  the 
earth.1  With  clear  advantages  owing  to  the  presence  of  quantitative  elevation  infor¬ 
mation  and  the  ease  of  registration  with  non-hypsometric  iniormation.  the  contour 
map  has  become  the  standard  cartographic  product  depicting  terrain  relief.  Never¬ 
theless,  terrain  form  is  often  difficult  to  perceive  quickly  and  accurately  in  a  repre¬ 
sentation  limited  to  contours.  Consequently,  it  is  often  desirable  to  supplement  the 
contours  with  additional  terrain  representations.2  Additionally,  contour  maps  are 
not  ideal  for  all  users  of  cartographic  products.  With  the  advent  of  high  speed  digital 
computers  and  the  creation  of  comprehensive  digital  terrain  models,  a  variety  of 
inexpensive  cartographic  products  can  be  created  for  special  applications,  such  as 
Bight  simulations  or  cut  and  fill  studies. 


The  research  described  in  this  report  approaches  these  problems  from  the 
standpoint  of  the  qualitative  representation  of  terrain  based  on  the  generation  of 
idealized  images.  Two  major  types  of  products  are  investigated:  (1)  the  analytic 
creation  of  shaded  relief  overlays  for  contour  maps,  and  (2)  the  production  of  syn¬ 
thetic  photographs.  Both  products  exploit  the  variation  of  brightness  between  different 
areas  of  terrain  owing  to  varying  inclinations  of  the  source  of  illumination.  Since  the 
resulting  cartographic  products  are  dependent  on  very  few  variables,  it  should  be 
easy  to  train  people  to  use  efficiently  the  wealth  of  qualitative  information  present 
in  these  products. 


*  A.  Robinson.  R.  Sale,  and  J.  Morrison,  hlentenls  of  Cartography.  1  ourth  1  d..  Wiley.  1978,  pp.  15—31. 
2J.  Dcates.  Carhignphic  Design  am!  Production .  Longman.  1973.  p.  73. 


This  report  systematically  examines  the  problems  associated  with  the  creation 
of  shaded  relief  overlays,  synthetic  photographs,  relief  contours,  and  related  products. 
The  theories  of  forming  images  by  optical  systems  and  of  light  scattering  from  solid 
surfaces  are  examined  first.  Constraints  on  the  implementation  of  the  results  of  the 
theory  imposed  by  available  equipment  are  discussed  next.  The  algorithms  developed 
at  I  TL  to  produce  shaded  relief  cartographic  products  are  then  described,  with 
emphasis  on  the  versatility  provided  by  the  polynomial  terrain  data  base  that  is  used 
as  the  basis  of  the  l  1  L  software,  f  inally,  the  report  examines  the  results  of  the 
implementation  of  these  algorithms  on  the  UTL—  POP—  1 1  /45. 


As  outlined  in  the  introduction  of  this  report,  the  goal  of  the  work  described 
herein  is  to  develop  algorithms  to  produce  terrain  representations  with  significant 
qualitative  informational  content.  As  with  most  cartographic 
II.  THEORY  products,  these  terrain  representations  are  visual  representations. 

which  are  used  because  it  is  easier  to  interpret  spatial  data  pre¬ 
sented  in  a  visual  form.  These  qualitative  representations  are  more  or  less  highly 
specialized  shaded  relief  images  of  the  terrain.  In  this  manner,  information  regarding 
landform  cun  be  quickly  retrieved  from  the  image  on  the  basis  of  the  continuous 
tone  image  and  implicit  lighting  directions  and  surface  characteristics. 


In  this  section,  the  physical  processes  that  we  seek  to  simulate  are  examined, 
first,  an  analysis  of  the  theoretical  basis  of  the  problem  is  essential.  Although  the 
basic  theory  is  not  new,  a  source  that  contains  all  aspects  of  the  basic  theory  is  needed. 


At  the  outset,  it  is  important  to  note  the  level  at  which  we  seek  to  understand 
the  processes  of  image  formation.  We  are  interested  only  in  the  basic  aspects  of  image 
formation,  such  as  can  be  treated  by  means  of  classical  physical  quantities  and  by 
means  of  simple  geometric  optics.  We  are  not  interested  in  the  more  detailed  under¬ 
standing  afforded  by  the  use  of  electromagnetic  theory,  nor  are  we  interested  in  the 
chemical  details  of  image  formation  in  real  imaging  systems  such  as  the  retina  or 
photographic  film.  Thus,  we  will  not  consider  diffraction  and  interference  or  quantum 
effects.  This  hardly  seems  a  restriction  for  our  purposes,  since  these  effects  are  only 
important  at  a  much  smaller  scale  than  we  are  concerned  with. 


v 
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We  will  divide  the  problem  into  conceptually  and  physically  independant  sub¬ 
problems  and  will  discuss  briefly  the  solution  of  each.  There  are  four  intermediate 
problems  that  must  be  solved  if  we  are  to  simulate  shaded  relief  images  of  the  terrain. 
These  problems  are 

1 .  The  description  of  the  lighting  source  illuminating  the  terrain. 

2.  The  interaction  of  the  incident  light  with  the  surface  of  the  terrain. 

3.  The  propagation  of  the  light  from  the  terrain  to  the  particular 
(idealized)  imaging  system. 

4.  The  recording  of  the  important  properties  of  the  reflected  light  in 
some  permanent  image. 


The  first  and  third  problems  deal  only  with  the  direction  of  the  propagation  of 
the  light;  consequently,  we  do  not  need  to  consider  the  intensity  of  the  light  rays 
with  which  we  are  dealing. 


The  first  problem  is  only  implicitly  dealt  with  in  this  section  of  the  report, 
since,  as  we  shall  see,  it  is  sufficient  to  define  the  direction  and  intensity  of  the  illu¬ 
minating  light  locally;  i.e.  at  each  point  of  the  surface  which  we  are  imaging.  Through¬ 
out  much  of  this  report,  we  shall  assume  a  uniform  direction  and  intensity  of  illumina¬ 
tion  across  the  entire  area  imaged. 


The  third  problem  is  explicitly  considered  in  some  detail,  since  it  is  important 
to  understand  the  various  types  of  idealized  images  that  we  shall  simulate.  Two  image 
types  will  be  examined,  the  orthonormal  and  perspective  projections.  The  ortho- 
normal  projection  must  be  understood  if  shaded  relief  overlays  are  to  be  produced, 
for  example,  contour  maps.  Perspective  projections  are  the  mathematical  idealization 
of  the  familiar  types  of  imaging,  such  as  vision  and  photography.  These  two  projection 
types  are  sufficient  to  produce  a  variety  of  cartographic  products.  A  third  projection 
type  which  is  also  of  cartographic  interest  is  the  oblique  projection.  This  type  lias 
been  discussed  in  a  previous  report.3 


In  the  two  remaining  problems,  the  interaction  of  light  witli  the  terrain  surface 
and  with  a  recording  medium,  one  must  consider  the  intensity  of  light  as  well  as  the 


3(\ Taylor.  t'arallef  1‘rofile  /'lots  for  lisuut  ter  rum  Display ,  tbS.  Army  i  ni'iruTr  [  opoi'rapIlK  Laboratories,  l-ort 
Belvoir,  Virt’inij.  I  II. -01 1*.  September  1977.  AD-A051  4K3.  pp.X-l!. 
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direction  in  which  the  light  is  propagating.  We  must  therefore  use  some  of  the  elements 
of  photometry,  which  has  developed  the  concepts  necessary  to  discuss  these  problems 
mathematically.  Since  the  reader  may  not  be  familiar  with  the  basic  concepts  of 
photometry,  a  brief  discussion  of  the  elementary  photometric  variables  is  included. 
This  will  enable  the  two  remaining  problems  to  be  examined. 


The  description  of  the  second  problem,  the  interaction  of  light  with  the  surface 
of  the  earth,  takes  the  form  of  a  light-scattering  “law.”  Such  a  law  is  a  mathematical 
relationship  between  the  brightness  of  the  surface  and  a  function  of  the  relative  posi¬ 
tions  o'  the  observer  and  the  source  of  illumination.  It  is  important  to  note  that  we 
know  oi  no  law  that  accurately  describes  the  interaction  of  light  with  all  types  of 
terrain  under  all  lighting  conditions,  nor  do  we  want  such  law  for  our  purposes.  Any 
such  law  would  be  very  complex,  since  we  would  have  to  treat  such  variables  as  terrain 
composition.  More  importantly,  such  a  law  would  be  extremely  difficult  to  interpret. 
Instead,  we  seek  a  light-scattering  law  that  provides  a  good  qualitative  representation 
of  the  form  of  the  terrain.  In  this  report,  two  such  laws  are  described.  The  two  were 
selected  for  their  simplicity  of  mathematical  form,  physical  basis,  and  extensive  em¬ 
pirical  justification.4  Although  this  description  of  the  interaction  of  light  with  the 
terrain  is  not  unique  or  in  any  sense  the  best,  the  two  laws  are  representative  and  can 
be  quickly  understood. 

The  last  problem  is  that  of  recording  in  a  permanent  image  the  important 
properties  of  the  light  reflected  from  terrain.  The  solution  is  a  function  relating  the 
brightness  of  a  given  surface  point  with  the  illumination  of  the  corresponding  point 
of  the  image.  Tor  the  case  of  the  perspective  projection,  we  derive  an  exact  solution. 
T  his  solution  simulates  such  photographic  phenomena  as  vignetting.  Such  effects  are 
perceptually  objectionable  for  our  purposes  since  qualitative  analysis  of  the  image 
becomes  more  complex.  Thus,  we  shall  simplify  our  formulas  by  using  reasonable 
approximations.  The  result  will  be  readily  amenable  to  algorithmic  implementation 
and  will  be  suitable  for  the  simulation  of  both  perspective  and  orthonormal  shaded 
relief  images. 

Thus,  in  this  section,  the  theoretical  basis  for  the  production  of  shaded  relief 
images  of  the  terrain  is  developed.  This  problem  is  divided  into  four  independent 
subproblems.  A  theoretical  solution  is  developed  for  each.  Since  the  subproblems 
are  independent,  this  approach  results  in  an  algorithmic  solution  to  the  problem  of 
shaded  relief  images  that  is  readily  amendable  to  computer  implementation. 


4H  Horn.  Hill  Shading  and  tin'  Reflectance  Map  in  Image  Understanding  in  Proceedings,  I  d.  t\v  I  .  Hiiimunn. 
St  ionic  Applications.  Inc.,  Report  SA1-80-895,  1979,  pp.  79-120. 


A.  THE  GEOMETRY  OF  IMAGE  FORMATION.  The  first  problem  to  be 
addressed  is  that  of  the  geometry  of  image  formation  for  the  imaging  systems  of 
interest.  This  problem  is  treated  first  sinee  it  is  the  means  of  correlating  points  of  the 
terrain  with  points  of  the  image.  Its  solution  plays  a  central  role  in  any  algorithms 
developed  for  shaded  relief  images.  The  process  of  image  formation  is,  as  noted  before, 
best  treated  in  terms  of  geometric  optics.  In  such  an  approach,  the  formulation  of 
the  problems  is  in  terms  of  projective  geometry.  Thus,  the  solutions  derived  below 
will  be  projection  equations  defining  the  geometry  of  image  formation  for  the  types 
of  images  of  interest. 


Two  types  of  projections  to  generate  images  are  considered  here:  orthonormal 
projections  and  perspective  projections.  These  two  projections  were  chosen  as  being 
of  primary  cartographic  interest  at  the  present  time.  The  orthonormal  projection  of 
gray  shade  information  may  be  used  as  a  contour  map  overlay,  enabling  a  quick 
analysis  of  terrain  form  by  aiding  the  task  of  interpreting  contour  lines.  Perspective 
projections  of  gray  shade  data  will  be  valuable  wherever  a  relistie  portrayal  of  the 
terrain,  as  seen  from  a  given  point,  is  called  for. 


1.  Orthonormal  Projections.  An  orthonormal  projection  may  be  defined 
as  the  projection  from  an  object  onto  a  projection  plane  parallel  to  the  base  of  the 
object,  using  projectors  that  are  uniformly  perpendicular  to  the  projection  plane, 
(see  figure  1).  Thus,  the  projection  equations  will  define  a  transformation  from  a 
three-dimensional  space  to  a  two-dimensional  plane.  Accordingly,  a  three-dimensional 
cartesian  coordinate  system  (x,  y,  z)  can  be  introduced  that  will  be  used  to  define 
the  position  of  points  of  the  object,  and  a  two-dimensional  (x»,  y'  )  cartesian  co¬ 
ordinate  system  can  be  used  in  the  projection  plane.  For  simplicity,  let  the  x>.  x 
and  the  y.  y  axes  be  parallel.  Then,  the  projection  equations  are  simply 

X'  =  X  (II 

Y'  =  Y  (21 

Note  that  the  /.-coordinate  (elevation)  drops  out  of  the  projection  equations.  Equations 
( 1 )  and  (2)  apply  only  to  maps  created  at  a  1:1  scale.  To  allow  for  other  map  scales, 
a  parameter,  a.  is  introduced,  such  that  for  an  a:l  map, 

X'  =  1/a  X  (31 

Y'  =  1/a  Y  (4) 
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VIEWING  DIRECTION 


FIGURE  I.  Orthonormal  Projection. 


It  should  be  noted  that  the  earth's  surface  cannot  be  depicted  in  an 
orthononnal  projection  where  the  projection  plane  is  everywhere  perpendicular  to  the 
earth’s  surface,  since  a  sphere  is  a  nondevelopable  surface.  All  standard  topographic 
maps  are  projections  in  which  this  problem  is  minimized,  and  it  is  assumed  that  the 
data  base  for  preparing  orthonormal  shaded  relief  projections  has  been  transformed 
in  this  manner. 


2.  Perspective  Projection.  A  perspective  projection  is  a  projection  of 
an  object  onto  an  image  plane,  characterized  by  nonparallel  projectors  that  converge 
to  a  point  behind  the  image  plane  (see  figure  2).  We  are  concerned  with  the  particular 
case  in  which  the  image  plane  is  parallel  to  the  plane  defined  by  the  Z-and  X-Axes 
of  some  coordinate  system  associated  with  the  object.  This  is  not  a  limitation  on  the 
generality  of  the  transformation  equations  that  will  be  derived;  a  suitable  rotation 
of  the  coordinate  system  of  the  object  will  enable  any  perspective  view  to  be  produced. 


We  begin  our  derivation  of  the  projection  equations  by  defining  the 
relevant  parameters  (see  figures  2  through  6),  assuming  the  usual  right-handed 
orthogonal  (X,  Y.  Z)  coordinate  system  associated  with  the  object.  The  origin  of  this 
coordinate  system  is  at  some  point  Q.  At  a  point  X  =  0,  Y  =  K;  Z  =  0,  a  projection 
plane  (PP)  parallel  to  the  XZ— Z  plane  of  the  coordinate  system  intersects  the  Y  axis. 
The  point  F,  located  a  distance  h  above  the  origin  of  the  coordinate  system  plays  a 
role  analagous  to  that  of  the  pinhole  in  a  pinhole  camera:  all  rays  from  the  object  will 
be  assumed  to  converge  to  it.  Two  vertical  planes,  P  and  S,  are  used;  P  is  per¬ 
pendicular  to  the  projection  plane  pp,  and  S  is  located  at  an  angles  to  it.  Both  planes 
contain  points  Q  and  F.  Finally,  an  image  coordinate  system  (X1,  Y()  is  used  in  the 
projection  plane,  PP.  This  coordinate  system  has  its  origin  at  the  point  Q1  with 
the  X1  axis  parallel  to  the  X  axis,  and  the  Y1  axis  parallel  to  the  Z  axis.  The 
coordinates  of  O'  in  terms  of  the  (X.  Y,  Z)  coordinate  system  arc 


X  (Q1)  =  Xo 

(5) 

y  (Q')  =  e 

(b) 

Z  (Q‘)  =  Z 

(7) 

Consider  first  the  X  coordinate  of  some  point  of  the  object,  Q,  with 
coordinates  (X,  Y,  Z).  This  point  will  be  contained  in  some  vertical  plane  S,  in¬ 
clined  at  an  angle  0  =  tan  (x/y)  to  the  vertical  plane  P  (see  figure  5).  The  pro¬ 
jection  of  this  point  is  seen  to  be 


X'  =  C  (x/y)  -  X0 


(8) 


% 
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Now,  determine  the  Y*  coordinate.  Kxamine  the  vertical  plane  S.  con¬ 
taining  the  point  Q  being  projected  and  the  focal  point  1;  (see  figure  6).  Again, 
simple  geometry  determines  the  transformed  coordinate.  As  shown  in  figure  6.  the 
radial  variable  r  =  -^/(  X2  +  Y2 )  and  the  distance  C'  =  ¥/cos0.  which  is  the  distance 
trom  the  line  F  -  Q  along  the  plane  S  to  the  plane  1*1’.  as  introduced.  The  co¬ 
ordinate  Y'  is  thus 

Y  =  (Z  -  h)  ¥  / r  +  h  -  Zo  (9) 


Heiuations  8  and  9  are  the  basic  transformation  equations.  As  with 
the  orthonormal  projection,  some  scale  factors  may  be  desirable.  Here,  two  such 
scale  factors  will  prove  valuable:  an  image  scaling  factor  $,  and  a  vertical  exagger¬ 
ation  y.  Fquation  8  and  9  thus  become 

X'  =  -X„  +  m  (x/y)  (10) 

^  +  j3(¥/cos0)  (h  -  yZ)/r  (11) 


where  we  let  Y()  =  h  -  ZH. 


liquations  10  and  11  are  the  defining  equations  for  a  perspective 
projection.  A  generalization  of  these  equations,  incorporating  a  projection  plane  at 
an  oblique  angle  to  the  vertical  axis  of  the  object  coordinate  system,  is  possible. 
Such  a  generalization  is  of  little  interest  for  most  proposed  applications,  and.  in  any 
case,  can  be  easily  accomplished  by  an  appropriate  rotation  of  the  object  coordinate 


FIGURE  6.  The  X  Coordinate  Determination  in  Perspective  View. 


B.  PHOTOMLTRIC  VARIABLtS.  In  defining  the  fundamental  photometric 
variables,  the  ones  of  greatest  importance  in  the  rest  of  the  report  are  brightness, 
illumination,  and  luminous  intensity.  Although  the  variables  represent  concepts  that 
are  quite  similar  to  the  colloquial  meanings  of  the  terms,  a  detailed  understanding 
of  the  terms  is  needed.  In  defining  the  terms,  it  is  assumed  that  the  concept  of  energy 
transport  by  electromagnetic  radiation  is  well  understood.  This  concept,  together 
with  elementary  geometric  considerations,  will  be  used  to  define  the  needed  variables. 

It  should  he  noted  that  the  discussion  of  the  elementary  photometric  concepts 
is  given  to  provide  a  background  adequate  for  the  analysis  of  terrain  brightness  and 
image  illumination.  In  this  introduction,  the  concepts  are  developed  in  a  logical  and 
concise  manner,  but  the  approach  is  not  intended  to  be  detailed  or  exhaustive.  The 
reader  interested  in  a  more  detailed  treatment  is  referred  to  texts  such  as  Walsh.5 

Photometry  is  the  branch  of  optics  concerned  with  the  measurement  of  light. 
Although  it  is  not.  strictly  speaking,  a  part  of  geometric  optics,  many  practical  appli¬ 
cations  are  such  that  the  geometric  approximation  is  reasonable.  The  present  work 
is  such  an  application.  Hence,  we  shall  adopt  the  geometrical  model  of  light  by  which 
light  is  regarded  as  the  How  of  luminous  energy  along  geometric  rays.6  This  How  is 
subject  to  the  geometric  law  of  conservation  of  energy,  which  requires  that  the  energy 
transmitted  in  unit  time  across  a  section  of  a  bundle  of  rays  is  constant.  This  definition 
will  be  used  implicity.  Consider  the  radiant  energy  emerging  from  a  portion  of  some 
surface,  I.  This  surface  may  be  fictitious,  the  surface  of  a  self-radiating  (primary ) 
source,  or  it  may  be  an  illuminated  surface  of  a  solid  (a  secondary  source). 

The  time-averaged  transfer  of  energy  by  a  ray  of  light  is  defined  by  a  vector 

C  ^ 

S  =  —  L  x  H  (12) 

4tt 
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h  VI.  Horn  rind  t.  Wolf.  Principles  of  Optics,  I  mirth  I  d..  I’cnummun  Press.  1970.  pp.  1 15-1 16. 
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Wlu.ro  the  Gaussian  notation  has  been  used,  C  is  the  speed  of  light,  E  is  the  electric 
field  vector,  and  H  is  the  magnetic  vector  of  the  electromagnetic  wave.7  It  is  suf¬ 
ficient  to  note  that  the  vector  S,  known  as  Poyntings  vector,  defines  the  direction  of 
and  represents  the  amount  of  energy  that  crosses  a  unit  area  perpendicular  to  the 
direction  in  which  the  ray  is  traveling  per  unit  time. 

Therefore,  S  may  be  interpreted  as  the  density  and  direction  of  energy  flow 
in  a  beam  of  electromagnetic  radiation.  The  quantity  with  which  wo  re  primarily 
concerned  at  this  point  is  the  total  energy  per  second  that  crosses  a  given  surface. 
This  quantity  is  known  as  the  Jinx  of  radiant  energy  (i.e..  the  total  energy  rer  second) 
crossing  the  surface.  The  flux  is  defined  by 


1  = 


/  <  S>  •  ndA 

su  rfa cc 


(13) 


where  "n  is  the  outward  unit  normal  to  the  surface,  dA  is  an  infinitesinn//  area 
element  of  the  surface,  and  <  S  >  is  the  time  average  of  the  Poyntings  vector.8 
It  will  be  recalled  that  the  dot  product  of  two  vectors  is 

A  •  B  =  lAllBl  cos 0  (14) 


where  0  is  the  angle  between  the  two  vectors.  Thus,  substituting  equation  (14) 
in  equation  (13),  we  find  that 


F  =  /(Slinl 

surface 


COS0  dA 


(15) 


or.  since  the  normal  vector  was  defined  as  the  unit  normal  vector. 


It? 


=  1,  and 


F  =  /lS  I 

s  u  r  1  a  c  c 


cosO  dA 


(16) 


7  M.  Born  ami  I  .  Wolf.  Principles  of  Optics,  fourth  lid..  Pergammon  Press.  1970.  pp.  115-116. 
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Tlie  above  discussion  assumes  that  the  light  with  which  we  arc  concerned  is 
traveling  in  a  single,  specific  direction  and  that  it  has  no  divergence.  However,  this 
is  an  ideal  situation,  which  does  not  exist  in  physical  reality.  Instead,  the  light  tra¬ 
versing  our  surface  will  be  composed  of  one  or  more  rays  of  light  occupying  an  in¬ 
finitesimal  solid  angle.  In  general,  for  any  direction  defined  by  the  polar  angles  (a,  j3 ), 
there  will  be  defined  some  differential  Poynting  vector  (differential  because  it  oc¬ 
cupies  a  differential  solid  angle).  Thus,  in  general,  we  have  the  differential  Poynting 
vector  in  any  given  direction  (a,  p),  defined  by  an  arbitrary  function  B  (a,  /3).  such 
that 

dS(a,  0)  •  B(a,/3)  dS2  (17) 

where  we  assume  that  B  (a,  /3 )  has  a  unique,  (time-averaged)  value  for  all  (a.  j3). 


To  determine  the  flux  of  radiant  energy  across  a  differential  element  of  our 
surface,  one  must  integrate  over  all  possible  infinitestimal  cones  of  light.  Thus,  one 
integrates  with  respect  to  the  differential  Poynting  vectors,  or  equivalently,  with  res¬ 
pect  to  the  differential  solid  angle.  lor  the  differential  flux  across  a  differential  surface 
element  with  unit  normal  n, 

dl;  =  f  dS(a,0)  ■  n  dA 
a.j3 

=  f  B  (a, j3)  cosfl  (a.  (3)  df2  d A  (IK) 

a. 1 3 

where  the  dependence  of  0  on  a  and  P  has  been  explicit)  noted. 


The  determination  of  the  total  flux  of  radiant  energy  across  our  surface  requires 
integration  over  the  differential  surface  element.  It  should  be  obvious  that  our  dif¬ 
ferential  Poynting  function  S  (a.  P)  will  also,  in  general,  be  a  function  of  position. 
I  Inis,  the  total  flux  across  some  surface  A  with  local  coordinates  (£.  77).  anil  polar 
angles  (a.  p)  will  be 

I-  =  J  I-  (£.  77 )  il  A 

%-V 

=  J  f  B(a.0;£.T7)Cos(Ma.|3;£.T?)dS2dA  (!<)) 

fv  A 
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Note  the  generalization  that  has  been  made.  Since  the  differential  flux  incident 
on  our  surface  will,  in  general,  vary  from  point  to  point,  so  will  the  defining,  function 
B.  Similarly,  since  our  surface  may  be  curved,  the  value  of  the  angle  0  between  the 
normal  to  the  surface  and  some  vector  defined  by  the  polar  angles  (a.  j3 )  will  also  be 
a  function  of  position.  This  additional  functional  dependence  has  been  made  explicit 
in  equations  (20)  and  (21).  with  the  two  types  of  dependence  differentiated  by 
semicolons. 


Let  us  now  interpret  these  mathematical  results  in  terms  of  photometrically 
defined  variables.  The  only  variable  entering  into  the  mathematical  definition  of  the 
flux  that  is  arbitrary  is  B  (a.  d).  This  variable  is  the  photometric  brightness.9  which 
is  the  photometric  quantity  that  will  be  of  concern  throughout  the  rest  of  this  report. 
It  is  analagous  to  the  familiar  concept  of  brightness,  differing  from  it  only  in  that 
( 1 )  the  efficiency  of  the  human  eye  is  a  function  of  the  intensity  of  the  incident 
light,  and  (2)  the  efficiency  of  the  human  eye  is  a  function  of  the  frequency  of  the 
light. 


Brightness  is  the  most  important  photometric  variable  I'or  our  purposes,  since 
it  is  independent  of  distance.  Qualitatively,  this  can  be  seen  by  considering  a  luminous 
surface  element  di  at  a  distance  If  I  from  the  surface  element  of  a  photodetector, 
da.  We  know  from  elementary  physics  that  the  flux  upon  the  detector  area  element 
obeys  the  inverse  square  law.  Noting  that  the  solid  angle  subtended  by  the  surface 
element  also  obeys  the  inverse  square  law  and  applying  the  differential  form  of  equa¬ 
tion  ( Id),  one  can  see  that  brightness  is  independent  of  the  distance  of  the  observer: 

B  =  dl;/(dA  eosfl  df2)  (20) 

1  xplicity  writing  the  inverse  square  dependence  of  dl  as 

dl  =  dl  (1  / 1 r  I*  (21) 

and  of  d£2  as 

dtt.,  =  dH„  Irl’  (22) 


Q 

K.  I.unufiuiAt.  (tcnim  inval and  Physical  Optic*.  Si*o>nJ  I  t)..  ]  on^mann.  ( ireen  .iml  (*n..  1%7.  p.  434. 


where  we  have  assumed  all  other  quantities  held  constant,  one  can  substitute  into 
(20)  and  see  that 

B  =  dF0/(dA  cosO  dJ2„)  03) 

thus  demonstrating  the  truth  of  our  claim  that  brightness  is  independent  ol  distance. 

After  having  defined  flux  and  photometric  brightness,  two  other  photometric 
quantities  can  be  defined  that  will  prove  useful.  Rewriting  equation  (20).  we  have 
the  basic  photometric  equation  of 

dF  =  BdA  cosO  dfi  (24 1 

where  the  quantities  are  as  defined  above. 

Consider  a  small  luminous  surface  element.  dA.  as  shown  in  figure  7.  This 
luminous  surface  does  not  necessarily  radiate  equally  in  all  directions.  To  define  the 
intensity  of  the  element’s  radiation  in  a  given  direction,  we  define  luminous  intensity, 
I.  as  the  flux  emitted  per  unit  solid  angle  in  a  given  direction.10  Mathematically, 
this  is  written  as 

dl  =  dl-Vdn  =  B  cos 0  dA  (25) 

where  dl  is  the  differential  luminous  intensity  of  the  surface  element  in  a  direction 
inclined  at  an  angle  0  to  the  normal  to  the  surface  element. 

Now  consider  another  surface  element.  dA.  which  is  illuminated,  i.e.  there 
is  a  nonzero  flux  of  radiation  upon  the  surface  (see  figure  8).  Then  the  incident 
flux  per  unit  area  upon  the  surface  element  is  defined  as  the  illumination  of  the 
clement  dA.1  1  Thus,  if  we  consider  the  illumination  of  the  surface  element  by  a 
source  of  illumination  positioned  at  an  angle  0  to  the  normal  to  the  surlace  element, 
the  differential  illumination,  dl.  of  the  surface  element  may  be  written  as 

dF  -  dl /dA  =  B  cosO  dtt  (2b) 


I  hexe  definitions  complete  the  introduction  to  the  basic  photometric  variables 
and  will  suffice  for  the  succeeding  discussions  of  light  scattering  by  surfaces  and  of 
image  photometry. 


in 
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C.  LIGHT— SCATTERING.  The  description  of  the  scattering  ol  light  by  a 
terrain  surface  is  a  central  component  of  the  theory  of  shaded  relief  images.  It  was 
shown  previously  that  photometry  provides  the  appropriate  language  for  this  descrip¬ 
tion.  Within  the  context  of  this  language,  one  variable,  surface  brightness,  was  shown 
to  embody  all  information  of  interest  concerning  light  emerging  from  any  surface. 
The  discussion  of  photometry,  however,  left  "brightness”  as  an  abstract  and  arbitrary 
function.  Thus,  the  meaning  of  "brightness”  must  be  defined  as  it  relates  to  light¬ 
scattering  by  surfaces.  This  is  done  by  examining  the  two  specific  light-scattering 
functions  selected  for  use  in  the  ETL  software. 


The  light-scattering  function  chosen  is  really  the  heart  of  any  synthetic  linage. 
This  formula  determines  how  the  terrain  model  is  shaded.  This  shading  of  the  terrain 
model  is.  in  turn,  the  principal  guide  to  the  form  of  the  terrain  available  to  a  viewer 
of  a  synthetic  image.  Such  an  observer  will  interpret  the  image  on  the  basis  of  a  num¬ 
ber  of  poorly  defined  preconceptions  based  on  years  of  visual  experience.  Thus,  the 
light-scattering  function  chosen  will,  in  a  poorly  understood  manner,  define  the  ap¬ 
parent  relief  of  any  synthetic  image  generated. 


Two  criteria  were  used  to  select  the  two  light-scattering  functions  used  at  ETL: 

1.  Simplicity  of  mathematical  form. 

2.  Extensive  empirical  justification. 

The  first  is  essential  if  the  chosen  law  is  to  be  used  in  efficient  software  to  generate 
shaded  relief  images.  The  second  requires  an  extensive  collection  of  familiar  physical 
objects  that  are  well  described  by  the  chosen  functions.  Any  such  formula  should 
therefore  satisfy  the  preconceptions  of  an  observer  interpreting  the  resulting  image. 


f  rom  the  criteria,  a  deficiency  exists  in  understanding  the  scattering  of  light: 
empirical  results  can  rarely  be  expressed  in  terms  of  simple  functions:  however,  the¬ 
oretical  formulate  rarely  provide  a  good  description  of  actual  surfaces.  The  two  light- 
scattering  functions  chosen  by  ETL  are  complementary  attempts  to  meet  both 
criteria.  Thus.  Lambert’s  law  accurately  describes  the  light-scattering  behaviour  of 
many  common  surfaces,  and  it  can  be  simply  expressed.  However,  no  entirely  satis¬ 
factory  derivation  of  it  has  yet  been  found.  The  Lommel-Seeliger  law.  on  the  other 
hand,  was  first  derived  from  theoretical  considerations.  It  is  thus  of  simple  mathe¬ 
matical  form,  but  it  is  not  broadly  applicable.  Empirical  justification  of  both  laws 
is  presented  below  and  discussion  of  the  theory  of  each  is  included  in  appendix  1. 
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The  discussion  below  presents  both  Lambert’s  law  and  the  Loinmel-Seeliger 
law  as  functions  describing  the  brightness  of  a  terrain  surface  element.  These  functions 
depend  on  the  relative  orientation  of  the  surface  element  to  the  source  of  illumination, 
and  in  the  case  of  the  Lommel-Seeliger  law,  upon  the  inclination  of  the  surface  to 
the  observer.  To  use  this  formulation,  one  needs  only  to  calculate  the  flux  on  a  photo¬ 
sensitive  surface.  These  results  can  then  be  qualitatively  interprete1.  emphasizing  the 
characteristic  properties  of  each. 


1.  Lambert’s  Law.  The  first  of  the  light-scattering  functions  chosen 
for  implementation  in  the  ETL  software  was  Lambert’s  law.  Lambert’s  law  describes 
the  interaction  of  light  with  a  surface  that,  by  definition,  is  perfectly  diffuse.  In 
contrast  with  a  perfectly  reflecting  surface,  which  is  infinitely  bright  in  the  direction 
of  reflection  and  totally  dark  elsewhere,  a  perfectly  diffuse  surface  is  equally  bright, 
regardless  of  the  direction  from  which  it  is  viewed.  However,  this  brightness  is  not 
independent  of  the  source  of  illumination.  This  follows  from  the  requirement  that 
no  more  light  can  be  reflected  from  a  surface  than  is  incident  on  it.  Since  the  flux 
on  a  surface  element  will  decline  as  the  cosine  of  the  angle  i  between  the  direction 
of  propagation  of  the  incident  light  and  the  normal  to  the  surface.  Lambert’s  law 
may  thus  be  written1 2 


B  =  B((  cos i  (27) 

The  B()  term  is  the  maximum  brightness  of  the  surface  and  will  depend  upon  the  total 
reflectivity  of  the  terrain  and  upon  the  illumination  of  the  surface. 


I2J.  Walsh.  Photometry,  Third  lid.,  Dover,  1958,  p.  137. 
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Many  natural  surfaces,  which  are  of  cartographic  interest,  obey  Lambert’s 
law  to  a  high  degree  of  accuracy.  The  surface  of  any  body  composed  of  discrete- 
particles  that  are  translucent  will  obey  Lambert’s  law  to  a  good  approximation.11 
Thus,  the  law  accurately  describes  the  light-scattering  properties  of  natural  surfaces 
such  as  snow,  sand,  pumice,  hoarfrost,  and  some  vegetation.  Lambert’s  law  also  ac¬ 
curately  describes  the  diffusing  properties  of  a  surface  that  is  rough  or  eorrugated  and 
that  is  composed  of  discrete  low-albedo  particles,  each  of  which  scatters  light  equally 
in  all  directions.1  4  Most  rocks  can  be  accurately  modeled  as  such,  and  Lambert’s  law 
is  thus  applicable  to  them.  This  extensive  collection  of  natmal  materials  obeying 
Lambert’s  law  suggests  that,  in  addition  to  serving  as  a  theoretical  photometric  stan¬ 
dard.  the  law  may  also  serve  as  a  natural  standard  for  diffuse  surfaces  for  most  people. 


The  two  models  given  above  for  surfaces  obeying  Lambert’s  law  are 
empirical  in  nature  and  cannot  be  justified  in  a  rigorous  theoretical  manner.1 1  This 
is  not  a  significant  drawback  for  cartographic  purposes,  since  Lambert’s  law  is  both 
empirical  in  nature  and  a  simple  mathematical  form.  However,  the  lack  of  theoretical 
justification  does  indicate  a  deficiency  in  the  current  understanding  of  the  scattering 
of  light.  Appendix  1  includes,  in  a  discussion  parallel  to  the  derivation  of  the  Lommel- 
Seeliger  law.  a  brief  mathematical  discussion  of  the  first  model  of  Lambert’s  law. 
indicating  the  deficiency  of  this  model. 


Applying  Lambert's  law  to  calculations  of  flux  is  straightforward,  but 
illustrates  several  features  of  interest.  The  features  can  be  demonstrated  by  examining 
a  simple  device  for  measuring  the  flux  from  a  surface.  The  device  consists  of  a  photo¬ 
sensitive  surface  of  area  a.  which  through  the  use  of  apertures  or  some  other  system, 
has  a  light  acceptance  cone  subtending  a  solid  angle  of  dec  (see  figure  9).  This  photo¬ 
detector  is  situated  a  distance  t  above  a  surface  obeying  Lambert’s  law.  and  the 
detector  acceptance  cone  is  inclined  at  an  angle  0  to  the  normal  to  the  surface. 
Consequently,  the  distance  from  the  surface  area  within  the  detector  acceptance 
cone  to  the  detector  is  r  =  z  sec  0.  The  surface  element  within  the  detector  accep¬ 
tance  cone  is  thus  of  area 


tlA  =  r2  dcu/cosO 


(28) 


^  1tl.  Ilnpkc  anil  It .  Van  Horn.  J.  Hcophvs.  RcS..  68(t%.7|,  p.  4552. 

1 4 1 t’lil. .  p.  455.1. 

'  I’  lUvkm.inn  V.; c h  rmv  of  l.lvli  1  hv  Rough  Surface  in  I'rogrcss  in  Optics.  V.  VI.  I  cl.  In  I  .  Wolf.  Norlli- 
llctll.inci.  1%7.  p.  57 
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From  thv.  surface,  the  photodetector  subtends  a  solid  angle  of 

dfi  =  a/r2  (29) 

If  one  uses  the  basic  photometric  identity,  equation  (24),  the  flux  upon  the  detector 
is  equal  to  the  fraction  of  the  light  from  each  point  of  the  surface  that  falls  upon  the 
detector  (d£2),  times  the  effective  area  of  the  surface  element  (dA  cos0),  times  the 
brightness  of  the  surface: 


F  =  B  dA  cos 0  df2 

=  B0  cos0  (r2  dco/cos0)  cos 0  (a/r2) 

=  Bu  cos0  dee  (30) 

Several  implications  of  this  equation  should  be  noted.  First,  if  one 
assumes  that  the  surface  is  uniform  and  of  infinite  extent,  the  flux  upon  the  detector 
is  independent  of  the  viewing  angle  0.  Second,  if  one  makes  the  same  assumptions, 
the  flux  is  independent  of  distance.  The  first  of  these  is  of  greater  general  significance, 
since  for  surface  elements  of  apparent  area  dA  =  dAo/cos0.  it  is  also  true.  As  the 
observer  moves  farther  away,  the  flux  will  decline  as  1/r2,  but  the  independence 
of  observation  angle  is  still  true.  This  property  is  discussed  in  the  section  on  image 
photometry. 


The  implications  of  this  discussion  for  the  generation  of  synthetic  images 
is  clear.  Slopes  facing  the  source  of  illumination  will  be  bright,  slopes  facing  away 
will  be  dark,  and  flat  areas  or  slopes  parallel  to  the  source  of  illumination  will  be 
neutral.  The  precise  nature  of  the  shading  should  resemble  that  of  actual  terrain. 


2.  The  Lommel-Seeliger  Law.  The  second  light-scattering  function 
chosen  for  implementation  in  the  FTL  software  was  the  Lommel-Seelige:  law.  The¬ 
oretical  in  origin,  the  function  is  based  on  a  simplified  model  of  a  low-albedo  scattering 
body.  A  slightly  more  general  treatment  leads  to  a  widely  applicable  light-scattering 
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function,  which,  however,  cannot  be  evaluated  in  closed  form  in  terms  of  kn  'wn 
functions.16  The  simpler  form  of  the  Lommel-Seeliger  law  thus  provides  clear  ad¬ 
vantages  for  any  simulation  and,  as  discussed  below,  provides  an  approximate  descrip¬ 
tion  of  the  light-scattering  properties  of  a  variety  of  natural  surfaces.  The  principle 
feature  of  the  Lommel-Seeliger  law  that  differentiates  it  from  Lambert’s  law  is  the 
dependence  on  viewing  angle.  This  dependence  is  expressed  in  the  Lommel-Seeliger 
law: 1 7 


B  B°/(l  +cos0/cos/) 

where  B„,  i,  and  0  are  as  defined  in  the  description  of  Lambert’s  law. 


(31  ) 


As  noted,  the  Lommel-Seeliger  law  is  derived  from  a  simple  model  of 
low  albedo  objects  (see  appendix  1 ).  The  principle  criticism  that  this  model  is  open 
to  is  that  it  neglects  the  porous  structure  of  many  such  natural  bodies.1  8  This  neglect 
means  that  the  pronounced  backscatter  common  to  many  real  low-albedo  scatterers 
is  not  modeled  by  the  Lommel-Seeliger  law.  It  should  be  noted  that  the  degree  of  this 
backscatter  is  an  independent  parameter  in  the  detailed  model.  Thus,  the  Lommel- 
Seeliger  law  may  be  considered  as  the  limit  of  a  more  general  model  as  the  porous 
structure  of  that  model  is  reduced  to  insignificance.  An  additional  parameter  in  both 
the  simplified  and  general  models  should  be  noted;  the  scattering  law  of  the  individual 
particles  composing  the  body  is  also  an  integral  part  of  the  general  law.  This  additional 
term  is  relatively  insignificant,  however,  since  both  models  are  rather  insensitive  to 
the  term’s  precise  form,  for  moderate  valves  of  the  illumination  and  viewing  angles.1  9 


Empirical  justification  of  the  Lommel-Seeliger  law  is  essential  if  the 
second  criteria  for  its  selection  is  to  be  met.  Just  as  the  general  model  of  low-albedo 
scattering  bodies  includes  a  parameter  governing  the  significance  of  the  porous  struc¬ 
ture,  physical  scatterers  seem  to  embody  such  a  parameter.20  Thus,  the  significance 


16B.  Hapke.  J.  Geophys.  Res.,  68(1963),  p.  4575. 

1 7lbid.,  p.  4573. 

18lbid„  p.  4573. 

19lbid.,  p.  4577. 

2°B.  llapke  and  H.  Van  Horn.  J.  Geophys.  Res.  68(1963),  p.  4552. 
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of  the  backscatter  is  highly  variable,  ranging  from  a  sharp  peak  for  some  vegetation, 
rocks,  and  the  moon  to  broad,  nearly  insignificant  peaks  for  other  materials.  Since 
in  any  application,  the  form  of  the  light-scattering  law  of  the  particles  of  which  the 
body  is  composed  must  be  somewhat  arbitrarily  chosen,  as  does  the  structure  para¬ 
meter,  there  is  at  present  no  good  empirical  reason  for  not  choosing  the  limiting 
case  of  the  Lommel-Seeliger  law.  Since  it  is  simple,  the  Lommel-Seeliger  law  was 
chosen  for  use  at  1TL,  as  well  as  for  at  least  one  previous  study.2 1 


The  application  of  the  Lommel-Seeliger  formula  for  terrain  brightness 
is  quite  similar  to  that  for  Lambert’s  law.  If  we  model  the  same  device  introduced  in 
the  discussion  of  Lambert’s  law,  the  determination  of  the  total  flux  incident  upon  a 
photodetector  of  area  a  is  straightforward  (see  figure  9).  Situated  a  distance  r 
from  the  surface,  with  a  detector  acceptance  cone  subtending  a  solid  angle  dw  at 
an  angle  0  to  the  normal  to  the  surface,  the  detector  will  accept  light  from  a  dif¬ 
ferential  area  of  dA  =  r2  dco/  cost).  Since  the  detector  subtends  solid  angle  of 
d£2  =  a/r2  at  the  surface,  the  total  flux  on  the  detector  is 

F  =  BdftcosOdA  (32) 


B  is  a  function  of  i  and  6,  as  defined  above.  Hence, 


=  B0 

1  +  COS0  / cos/ 


cosO  dA  d£2 


B(,  dco  a 
1  +  cost)  /  (JOS/ 


(33) 


This  result  is  substantially  different  from  the  corresponding  result  for 
Lambert’s  law.  It  is  dependent  on  both  the  angle  of  illumination  and  the  angle  of 
observation.  The  formula  does  meet  the  elementary  esthetic  criteria  mentioned  in 
the  discussion  of  Lamber’s  law:  slopes  facing  away  from  the  source  of  illumination 
are  dark,  and  slopes  facing  the  source  of  illumination  are  bright.  The  dependence  on 
0  is  iess  intuitive,  since  the  brightness  of  the  terrain  reaches  a  minimum  for  an  ortho¬ 
normal  view,  and  a  maximum  for  high  {0  =^90°)  values  of  0.  all  else  held  constant. 
This  can  be  readily  understood  within  the  context  of  the  model  from  which  the 
Lommel-Seeliger  law  is  derived,  and  accurately  describes  the  behavior  of  many  physical 
objects.  I'luis,  any  discussion  of  the  ease  of  interpretation  of  an  image  generated 
using  the  Lommel-Seeliger  law  (or  any  other  must  be  based  on  such  images,  and  not 
on  the  relative  complexity  of  the  light-scattering  law. 


-  '  K .  Batson,  K.  I  dwards.  and  I..  Idiason.  J.  ties.  IJ.S.  CJeol.  Surv.,  3(1975),  p.401. 
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D.  IMAGE  PHOTOMETRY.  The  remaining  theoretical  problem  to  be  ! 

addressed  is  that  of  recording,  in  a  permanent  image,  the  important  properties  of  the  j 

light  reflected  by  the  terrain.  There  are  two  aspects  of  this  problem.  First,  what 
quantity  should  be  used  to  define  the  light  reflected  by  the  terrain?  Second,  what 
quantity  is  a  real  recording  medium,  such  as  photographic  film  or  the  human  eye,  •; 

sensitive  to?  The  solution  to  the  problem  will  be  a  mathematical  formula  relating 

these  two  quantities  for  a  particular  imaging  system. 


We  saw  in  our  discussion  of  photometry  that  the  brightness,  B,  of  a  surface 
is  a  quantity  that  is  independent  of  distance.  All  other  basic  photometric  variables, 
such  as  flux,  luminous  intensity,  and  illumination,  can  be  expressed  in  terms  of  the 
brightness  and  the  variables  that  describe  the  geometry  of  a  particular  situation. 
Further,  light-scattering  laws  that  define  the  interaction  of  the  terrain  surface  with 
the  incident  light  may  easily  be  cast  in  a  form  defining  the  brightness  of  the  terrain. 
Thus,  the  brightness  will  be  used  as  the  basic  quantity  defining  the  important  pro¬ 
perties  of  the  interaction  of  light  with  the  terrain  surface. 


The  other  basic  quantity  to  which  a  recording  medium  is  sensitive  to  can  be 
chosen  from  the  photographic  theory.  The  density  of  a  photographic  image  is,  in 
general,  a  complicated  function  of  the  illumination  as  a  function  of  time.22  In  normal 
photochemical  reactions  at  light  levels,  such  as  those  which  we  seek  to  simulate,  the 
amount  of  product  per  unit  area  that  is  formed  is  directly  proportional  to  the  product 
of  the  illumination  of  the  area  and  the  time  of  illumination.23  By  assuming  a  unit 
time  for  all  exposures,  we  may  therefore  use  the  illumination  of  a  given  point  of  an 
image  as  the  important  property  of  the  light  incident  on  that  point. 


First,  the  problem  for  the  case  of  perspective  imaging  systems,  such  as  a  camera, 
will  be  discussed.  The  formula  derived  is  more  exact  than  is  desirable  for  our  purposes. 
Consequently,  several  approximations  will  be  introduced  that  are  reasonable  for  the 
cases  of  interest.  The  approximations  will  be  used  for  both  the  perspective  and  ortho¬ 
normal  projections. 


! 


22J.  Wjlsli.  Photcmetry,  Third  I  d.,  Dover,  1958,  p.435. 

23II.  Baines.  The  Photographic  Process  in  Photography  for  the  Scientist, 
1968.  p.  7. 
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As  before,  the  variables  must  be  defined  (see  figure  10).  An  imaging  system, 
such  as  a  camera,  is  composed  of  a  lens  of  aperture  a  with  a  light-sensitive  surface 
parallel  to  the  lens  a  distance  rQ  behind  it.  This  system  is  imaging  a  luminous  surface 
dS  located  a  distance  r  from  the  center  of  the  lens,  at  an  angle  0  to  the  central 
axis  of  the  optical  system.  The  normal  to  the  luminous  surface  ft  is  oriented  at  an 
angle  y>  to  the  ray  connecting  dS  to  the  center  of  the  camera  lens  (assuming  ft 
to  be  coplanar  with  r  for  simplicity). 


The  flux  emitted  by  the  luminous  surface  into  a  solid  angle  dec,  oriented  at 
an  angle  y>  to  the  normal  to  the  surface,  is  given  by 


d  F  =  (3  cosy)  dcu  dS 

Now,  for  the  case  of  the  camera-object  system  described  above, 

da  cost) 


dco 


(34) 


(35) 


and  hence. 


dF  = 


/)  cosy)  dS  da  cost) 


(36) 


Integrating  over  the  area  of  the  camera  lens,  we  thus  see  that  the  total  flux  incident 
upon  the  camera  lens  is  given  by 


F  = 


P  cosy)  dS  a  cos 0 


(37) 


If  we  assume  that  all  the  light  incident  on  the  lens  from  the  surface  element 
dS  passing  through  the  lens  is  concentrated  upon  the  corresponding  image  demerit 
dS!  and  that  a  factor  of  (1  -  7)  of  the  incident  flux  is  scattered  or  absorbed  during 
passage  through  the  lens,  then  the  illumination  of  the  image  element  is  given  by 


dS  dF 


dS'  dS 


( I  -  7) 


(38) 


inetry  of  Image  Formation. 


The  factor  of  dS/dS’  must  now  be  evaluated.  Our  surface  element  dS  is 
positioned  such  that  the  unit  normal  may  be  characterized  by  a  polar  angle  a  and 
an  azimuthal  angle  /J.  Similarly  the  ray  will  be  defined  that  connects  the  center  of 
the  camera  lens  to  dS  by  a  polar  angle  6  and  an  azimuthal  angle  7.  First,  determine 
the  angle  6  that  the  radial  vector  makes  with  the  central  axis  of  the  optical  system. 
Since  the  radial  vector  is  treated  as  a  unit  vector,  the  x-component  of  the  vector  is 

rx  =  cos6  C0S7  (39) 

Noting  the  definition  of  9,  one  can  see  that  it  is  defined  by 

0  =  cos1  (rs/r)  =  cos'1  (cos6  C0S7)  (40) 

Now,  in  an  ideal  imaging  svstem,  linear  features  of  an  object  parallel  to  the 
image  plane  are  transformed  onto  linear  features  in  the  image  plane  by  a  factor  of 
proportionality  known  as  the  lateral  magnification,  M.24  Area  elements  are  similarly 
transformed  by  a  factor  of  M2.  As  defined,  M  =  dSD/dS'  is  inversely  proportional 
to  the  radius  r.  Features  oriented  to  dSQ,  as  dS  is  in  the  figure,  will  be  transformed 
as  their  projection  onto  dS(),  which  is  equal  to  the  dot  product  of  the  respective 
normals.  Thus 

dS„  =  ft  (dS„)  •  ft  (dS)  dS 

=  (-1 , 0.  0)  ■  ("cost*  cos/3,  cosa  sin/3.  sinajdS  (41 ) 

=  cosa  cos/3  dS 


Hence, 


dS/dS  =  dS/dS„  dS„/dS 


cosa  cos/3  M2 

r2  1 

M2  cosa  cos/3 


24, 


(.  (  runkc 
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where  Mt)  is  the  magnification  for  some  nominal  distance  ru.  Substituting  (42) 
into  (39)  and  (40).  One  has  the  illumination  on  d S'  as 


i: 


cosa  cos/3 


a  B  cos tfi  cos 0 

- f -  ( 1  —  7  )d  S 


u  /3  cosip  cosO  dS 
1VP  coso  cos/3 


(43) 


Equation  46  is  the  rigorous  formula  for  the  perspective  projection.  Note  that 
the  illumination  falls  off  rapidly  as  0  increases.  In  fact,  since  the  other  variables  are 
not  independent  of  6,  the  actual  dependence,  holding  all  else  constant,  goes  as 
cos4 0.25  This  effect  is  known  as  vignetting  and  results  in  a  bright  central  image,  which 
darkens  rapidly  towards,  the  edges.  As  such,  the  effect  is  undersirable.  Hence,  several 
approximations  shall  be  considered  to  eliminate  this  effect. 

First,  since 


COSip 


/N 


n 


(44) 


one  may  write 


cosy?  =  coso  cos/3  COS7  cos6 

-cosa  cos/3  cos6  sin7  (45) 

-sina  sin6 


For  small  7  and  6,  such  as  is  the  case  near  the  center  of  the  image.  cos7  —  cosS  n  1 
an  sin7  —  sin 5  ~  0.  Substituting  for  this  case. 


E 


a  /3  cosa  cos/3  cosO 
Mo  cosa  cos/3 


dS  (1  -  7) 


40) 


25 


R.  lonehurst. 


Geometrical  and  Physical  Optics , 


Second  I  d.. 


Lonemann,  Green  and  Co.,  1%7.  p.  4  1 1 
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Since  for  small  7  and  6,  0  is  also  small,  we  have 


where  we  have  let 


qa  j3  d  S 

“IP 

O 


7  =  0 


(47) 


(48) 


The  result,  which  is  a  reasonable  approximation  for  the  central  region  of  a  per¬ 
spective  view,  is  independent  of  r  and  is  independent  of  any  of  the  defining  angles. 
Since  the  limiting  case  of  the  approximations  used  corresponds  to  the  orthonormal 
view,  the  result  is  also  valid  for  the  orthonormal  projection  of  gray  shade  data.  Thus, 
for  both  projections  of  interest  in  this  report,  a  formula  now  exists  that  relates  the 
brightness  of  a  surface  element  to  the  illumination  of  the  corresponding  point  of  the 
image.  Since  the  illumination  defines  the  density  of  an  actual  image,  recording  the 
illumination  as  a  function  of  position  stores  the  important  information  of  the  image 
needed  for  simulation. 


In  the  previous  section  of  this  report,  the  theoretical  basis  was  examined  of  the 
creation  of  shaded  relief  images  for  cartographic  applications.  This  theoretical  basis 

was  divided  into  four  independent  components,  each  of 
III.  ALGORITHMS  which  was  examined  in  detail.  Now,  the  task  of  assembling 
the  components  of  the  theory  within  a  unified  algorithm 
for  the  generation  of  shaded  relief  images,  must  be  undertaken.  The  algorithms  must 
be  understood  before  use  of  the  software  developed  in  undertaken,  which  is  essential 
before  any  major  modifications  of  the  software  created  are  attempted. 


First,  some  notes  should  be  made  regarding  the  nature  of  the  model  embodied 
in  the  algorithms  described  below.  In  nature,  the  process  of  image  formation  may  be 
described  as  a  continous  process,  at  least  at  the  level  at  which  we  seek  to  simulate  it. 
Every  visible  point  on  the  object  contributes  light  to  a  single  point  on  the  image  plane. 
Mathematically,  this  process  could  be  defined  by  a  function,  a  1:1  mapping  of  visible 
points  on  the  object  onto  the  points  of  the  image  plane.  The  image  function  will  be 
determined  by  the  geometry  of  the  imaging  system,  the  geometric  model  oflight,  and 
the  geometries  of  the  object  and  image  spaces.  The  continuous  nature  of  the  process 
is  clearly  defined.  Although  discontinuties  may  exist  in  the  visible  object  space  of  the 
perspective  projection,  as  when  a  valley  dips  out  of  sight,  every  point  contributing 
to  the  image  has  another  such  point  infinitesimally  far  away  from  it.  Correspondingly, 
the  image  plane  is  the  basis  for  a  continuous  image.  Thus,  no  inherently  discrete 
aspects  to  the  process  of  image  formation  exists. 


This  continuity  is  to  be  contrasted  with  the  inherently  discrete  nature  of  any 
digital  simulation.  The  image  plane  in  such  a  simulation  of  the  imaging  process  must 
be  modeled  as  an  array  of  discrete  pixels,  each  of  which  can  assume  one  of  a  set  of 
discrete  brightness  levels.  This  discrete  nature  of  the  image  space  means  that  an  in¬ 
verse  function  mapping  the  image  space  into  the  object  space  is  needed,  at  least 
implicitly.  Such  a  function  cannot,  in  general,  be  analytically  determined  for  the  pers¬ 
pective  projection  because  of  the  complicated  nature  of  the  phenomena  being  mod¬ 
eled.  The  inverse  function  must  therefore  be  algorithmically  determined  by  a  series  of 
successive  approximations  for  each  pixel  of  the  image.  Similar  approximations  must 
be  developed  for  each  element  for  the  theory  embodied  in  the  model. 


The  guiding  principles  in  the  development  of  the  algorithms  for  the  generation 
of  shaded  relief  images  must,  for  our  purposes,  be  efficient  and  versatile  when  im¬ 
plemented  in  the  form  of  computer  software.  Since  each  calculation  involved  in  an 
algorithm  takes  a  finite  amount  of  time,  severe  constraints  are  placed  on  the  form  of 
any  algorithm  developed,  and  hence  on  the  nature  of  the  approximate  solutions  used. 
Thus,  these  constraints  help  to  determine  the  specific  content  of  any  algorithms 
developed. 
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Tlie  discussion  of  the  algorithms  embodying  the  various  aspects  of  the  theory 
proceeds  in  a  manner  reflecting  the  role  of  each  algorithm  within  the  I  TL  software. 
The  structure  of  this  software  for  perspective  and  orthonormal  images  is  quite  similar. 
As  can  be  seen,  there  are  four  major  computational  components  of  the  software, 
each  embodying  a  corresponding  theoretical  component.  Thus,  there  are  four  con¬ 
ceptual  divisions  to  the  unified  algorithms  developed. 


These  parameters  are  determined  once  for  each  image,  and  they  define  the 
particular  characteristics  of  the  shaded  relief  image  to  be  generated.  The  following 
four  components  must  be  sequentially  done  for  each  element  of  the  image: 

1.  Define  global  image  parameters  (observer  position,  imaging  system 
characteristics,  vector  of  illumination). 

2.  Correlate  image/object. 

3.  Determine  local  surface  orientation. 

4.  Compute  surface  brightness/image  density. 

Since  the  coded  digital  image  must  be  output  in  some  graphic  format,  the  fifth  com¬ 
ponent  is: 


5.  Image  generation. 


The  discussion  of  the  first  point  is  essentially  limited  to  a  brief  treatment  of  the 
mathematical  definition  of  the  vectors  of  illumination  and  observation.  The  vectors 
are  necessary,  since  together  with  the  orientation  of  a  local  surface  element,  they 
may  be  used  to  define  the  brightness  of  that  surface  element  by  means  of  Lambert’s 
law  or  the  Lommel-Seeliger  law.  Thus,  vectors  define  the  manner  in  which  the  illumin¬ 
ation  of  the  terrain  is  simulated,  knowledge  of  which  is  crucial  to  interprete  accurately 
the  image  produced.  Other  global  variables  that  must  be  defined,  such  as  the  focal 
length  of  a  perspective  imaging  system,  should  require  no  detailed  explanation. 


Having  specified  the  global  variables  defining  the  image  to  be  produced,  one 
can  generate  a  simulated  image  by  performing  a  series  of  local  calculations  for  each 
element  of  the  image.  Once  a  given  image  element  (pixel)  is  specified,  some  point 
must  be  determined  on  the  surface  of  the  terrain  whose  projection  lies  within  the 
pixel.  Since  an  analytic  solution  to  this  problem  is  not  available  for  the  perspective 
case,  an  algorithm  yielding  an  approximate  solution  is  discussed.  This  algorithm  ex¬ 
ploits  the  projection  of  a  radial  elevation  profile  that  lies  on  a  vertical  line  in  the  image 
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plane.  By  sampling  the  elevation  profile  corresponding  to  a  given  column  of  pixels, 
a  point  on  the  terrain  with  the  required  characteristics  can  be  found  by  a  process 
of  successive  approximations.  Elevation  data  points  may  be  readily  accessed  as  needed, 
a  minor  problem  when  the  polynomial  data  base  is  used.  The  situation  is  much  simpler 
in  the  case  of  the  orthonormal  projection,  since  projection  equations  (3)  and  (4) 
may  easily  be  inverted. 

Having  found  a  point  on  the  surface  of  the  terrain  corresponding  to  a  given 
pixel,  one  may  use  the  point  as  a  representation  sample  of  the  pixel.  After  having  found 
a  representation  point,  the  orientation  of  the  surface  at  the  chosen  point  must  be 
determined.  This  orientation  may  be  defined  by  the  vector  normal  to  the  surface  at  the 
point  of  interest.  The  determination  of  the  normal  is  discussed  for  two  types  of  terrain 
elevation  data  bases,  (1)  uniformly  gridded  data,  and  (2)  the  polynomial  terrain 
data  base.  Gridded  data  yields  an  approximate  solution,  and  the  polynomial  terrain 
data  base  yields  an  analytic  solution. 


All  that  remains  at  this  point  is  to  use  a  given  light-scattering  law  and  the  re¬ 
sults  of  the  above  calculations  to  determine  the  illumination  of  the  pixel  of  interest. 
Since  most  commercially  available  gray  shade  output  devices  require  input  data 
specifying  the  density  of  a  photographic  image  and  not  the  illumination,  this  con¬ 
version  is  discussed,  as  implemented  in  the  KTL  software. 

Once  the  shaded  relief  image  has  been  generated  and  coded  in  the  form  of  image 
density  values,  it  must  be  output  to  some  device  capable  of  producing  the  graphic 
product.  Three  such  output  devices  are  available  at  1£TL:  (1)  an  electron  beam 

recorder  (HBR)  for  very  high  resolution,  near-continuous  tone  images:  (2)  a  line 
printer  for  the  generation  of  proofing  images:  and  (3)  a  Versatec  plotter,  which  is 
used  to  generage  moderate  in  resolution  halftone  images.  The  requirements  of  each 
device  are  discussed,  and  the  specific  algorithms  developed  to  meet  these  requirements 
are  outlined. 


At  the  end  of  this  section,  several  algorithms  are  discussed  that  are  devised  to 
meet  specific  cartographic  problems.  These  algorithms  enable  a  variable  (i.e.  non- 
global)  sun  angle  to  be  used  to  generate  perspective  or  orthonormal  images,  the  simu¬ 
lation  of  atmospheric  haze  in  perspective  views,  and  the  orthonormal  relief  contour 
images.  The  variable  sun  angle  algorithm  was  introduced  to  accent  terrain  features  that 


would  otherwise  wash  out  because  of  poor  orientation  relative  to  a  given  source  of 
illumination.  This  is  accomplished  by  locally  varying  the  azimuth  of  the  source  of 
illumination  around  a  principle  source,  a  common  cartographic  technique.  The  result 
is  an  enhanced  representation  of  terrain  form.26  -27  Atmospheric  haze  is  simulated  by 
a  simple  model  designed  to  provide  additional  distance  clues  to  the  viewer  of  a  shaded 
relief  perspective  image.  Finally,  a  simple  algorithm  enabling  the  production  of  relief 
contours  is  discussed.  Based  on  a  cartographic  product  first  developed  by  Kitiro 
Tanaka,28  one  can  combine  the  resulting  image  of  the  quantitative  information  of 
contours  with  a  striking  visual  representation  of  terrain  form.  These  special  purpose 
algorithms  substantially  enhance  the  versatility  of  the  ETL  software. 


The  implementation  of  the  theoretical  results  of  the  last  section  are  discussed 
in  a  set  of  algorithms  for  the  computer-generated  shaded  relief  images.  Corresponding 
to  each  part  of  the  theoretical  solution  to  the  problem  of  shaded  relief  images  is  an 
algorithm  embodying  that  solution,  typically  in  an  approximate  manner.  One  section, 
defining  the  parameters  of  the  image  to  be  produced,  is  executed  once  for  any  image; 
the  other  component  algorithms  are  executed  sequentially  for  each  image  element. 
Although  these  algorithms  were  developed  with  the  intention  of  efficiently  using 
the  polynomial  terrain  data  base,  they  are  generally  applicable  to  any  digital  terrain 
model.  Thus,  the  algorithms  serve  as  the  basis  for  versatile  and  efficient  software  to 
generate  a  variety  ot  shaded  relief  terrain  images. 


2<>P.  Yoeli.  “Die  helming  lies  l relit  bci  analytischcn,"  Kartographichc  Nachrictcn  (luetersloh  17(1967). 
pp. 537-544. 

Brass*?!.  “A  Mtnlcl  tor  Automatic  Hill  Shading,”  Am.  Cart.  1(1974),  pp.  15-27. 

2»tc.  Tanaka  “The  Orthographic  Relief  Method  of  Representing  Topography  on  Maps,”  Ocogr.  Her.  40(1950), 
pp.  444-456. 
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A.  DEFINITION  OF  GLOBAL  VARIABLES.  Most  calculations  made  in 
generating  a  shaded  relief  image  are  local  in  nature.  The  calculations  for  a  given  pixel 
are  independent  of  the  calculations  for  any  other  pixel  and  are  independent  of  any 
terrain  except  that  which  is  projected  into  the  pixel  of  interest.  Certain  parameters 
are  global  in  nature  and  mast  be  defined  if  the  image  generated  is  to  appear  coherent 
to  a  viewer.  These  parameters  govern  those  aspects  of  the  image  that  are  invariant 
across  it,  and  they  define  the  characteristics  of  the  imaging  system,  such  as  focal  length 
and  field  of  view,  the  Iccation  and  direction  of  view  of  the  imaging  system,  and  the 
position  of  the  source  of  illumination. 


In  discussing  the  local  algorithms  below,  each  of  these  parameters  is  treated  as 
a  constant,  which  it  is  for  a  given  image.  The  mathematical  details  of  each  parameter 
are  introduced  as  it  seems  convenient,  since  any  formal  discussion  at  this  point  would 
be  largely  unmotivated.  None  of  the  parameters  are  complicated  so  that  at  this  point 
no  more  is  required  than  to  call  attention  to  the  role  they  play  in  unifying  the  local 
calculations. 


B.  VISIBILITY  ALGORITHMS. 

I.  Assumption.  As  noted,  the  visibility  problem  is  one  of  areas.  Tims, 
visibile  areas  of  an  object  corresponding  to  the  area  of  a  given  pixel  are  sought.  The 
solution  to  the  visibility  problem  that  is  used  at  ETL  is  based  on  the  observation 
that  any  visible  point  with  a  projection  lying  within  a  given  image  pixel  may  be  used 
to  approximate  the  characteristics  of  that  pixel.  In  essence,  this  means  that  the  plane 
tangent  to  the  topographic  surface  at  any  such  visible  point  may  be  used  to  model 
the  surface  over  the  visible  region  of  the  object  corresponding  to  the  given  pixel 
(see  appendix  A).  Although  this  may  prove  somewhat  arbitrary,  as  when  terrain  dips 
out  of  view  and  then  reappears,  any  refinement  of  the  assumption  will  require  global 
knowledge  of  the  object.  As  a  practical  matter,  for  images  of  sufficiently  high  re¬ 
solution,  the  assumption  is  quite  reasonable. 


2.  Algorithmic  Solutions.  Having  made  the  assumption,  one  reduces 
the  visibility  problem  to  determining  a  point  (X,  Y)  on  the  terrain  surface  z(x,  y), 
subject  to  the  requirement  that  the  projection  of  this  point,  (X1,  Y1),  lies  within  an 
image  pixel  defined  by  image  coordinates  (x  ±  A  x,  y  ±  Ay).  As  noted  in  the  intro¬ 
duction,  two  cases  are  of  interest,  the  perspective  and  orthonormal  projections. 
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a.  Orthonormal  Projection.  The  orthonormal  projection  of  a 
terrain  surface  z(x,  y)  is  defined  by  the  orthonormal  projection  euqations  (3)  and 
(4).  Since  z  is  a  function  of  (x,  y)  and  since  the  projection  equations  are  inde¬ 
pendent  of  z,  there  is  no  visibility  problem  for  the  case  of  the  orthonormal  pro¬ 
jection.  One,  and  only  one,  point  of  the  surface  is  projected  onto  a  given  point  of  the 
image.  Given  the  (X' ,  Y' )  coordinates  of  a  pixel  of  interest  and  the  scale  factor 
defining  the  projection,  by  inverting  the  projection  equations,  a  point  on  the  surface 
is  defined  that  meets  the  acceptance  criteria.  This  point  is  given  by 


X 

=  a  X1 2 

(49) 

Y 

=  a  Y1 

(50) 

Thus,  for  the  case  of  the  orthonormal  projection  of  a  terrain  data 
base,  the  problem  of  finding  points  on  the  surface  that  may  be  used  to  define  an  image 
is  relatively  simple.  Once  such  a  point  is  found  corresponding  to  a  given  image  element, 
processing  proceeds  as  outlined  below. 


b.  Perspective  Projection.  The  perspective  projection  of  a  topo¬ 
graphic  surface  z(x,  y)  is  defined  by  the  perspective  projection  equations  (10)  and 
(11).  These  projection  equations  are  not  independent  of  z,  and  portions  of  the 
terrain  surface  may  be  obscured  by  other  areas  of  the  surface.  The  first  observation 
precludes  a  simple  analytic  object/image  correlation  algorithm,  such  as  is  available  with 
the  orthonormal  projection,  since  inversion  of  the  perspective  equations  requires 
knowledge  of  the  surface  z(x,  y).  The  second  observation  indicates  that  not  any  point 
with  a  projection  lying  within  a  given  pixel  is  acceptable,  for  it  may  be  obscured  by 
terrain  in  the  foreground.  Thus,  in  considering  whether  or  not  a  given  point  is  ac¬ 
ceptable,  some  knowledge  of  the  terrain  between  i  and  the  observer  is  required. 


Since  an  analytic  solution  to  the  visibility  problem  is  not  possible, 
the  tTL  software  addresses  this  problem  algorithmically.  This  algorithm  is  an  iterative 
procedure  for  finding  a  visible  point  on  the  terrain  surface  with  a  projection  lying 
within  specified  bounds  of  a  given  point  on  the  image.  This  is  illustrated  in  figure  1 1. 
In  this  figure,  any  surface  point  within  the  hatched  region  is  acceptable,  in  that 

1.  It  will  be  visible. 

2.  Its  projection  lies  within  a  tolerance  Ay  of  the  prescribed 
point  YS. 
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FIGURE  11.  Acceptable  Elements  of  a  Raster  Pixel  (Any  Point  in  Hatched  Area). 


This  example  will  be  used  to  examine  the  details  of  the  algorithm  used  in  the  ETL 
software.  The  algorithm  is  implemented  in  the  FORTRAN  subroutine  GRNDPT, 
to  which  the  reader  is  referred  (see  appendix  B).  Note  that  the  algorithm  described 
is  not  restricted  to  the  perspective  projection.  All  that  is  required  for  its  use  with 
another  projection  is  the  substitution  of  the  appropriate  projection  equation. 


lions 


The  analysis  of  the  algorithm  proceeds  from  the  projection  equa- 


X  =  X„  +  /3C  (x/y)  (51) 

Y  =  Y  +  0(E/cos0)  (h  -  7  Z)  /r  (52) 


where  the  variables  are  as  defined  before.  Recalling  that  the  visibility  problem  has 
been  simplified  to  one  requiring  only  the  determination  of  a  visible  point  corres¬ 
ponding  to  a  given  pixel,  the  visibility  problem  can  be  solved  by  sampling  the  terrain 
along  a  radial.  Since  equation  (10)  can  be  rewritten  as 

X  =  -XD  +  j3C  cotO  (53) 

and  since  0  is  a  constant  for  a  radial  elevation  profile,  the  x  coordinate  will  also 
be  constant  for  the  projection  of  a  radial  profile.  This  will  correspond  to  a  column  of 
pixels  for  most  raster  display  devices.  Thus,  a  single  radial  profile  of  elevation  data 
may  be  used  to  determine  the  visible  portions  of  the  terrain  for  an  entire  column  ot 
pixels,  (see  figure  3). 


To  illustrate  the  features  of  the  algorithm,  consider  a  general 
example.  The  image  to  be  generated  is  to  be  composed  on  m  x  (2n  +  1 )  pixels,  where 
in  is  the  number  of  pixels  per  column  and  the  columns  of  pixels  are  numbered  from 
-n  to  +n  as  illustrated  in  figure  12.  A  visible  pixel  that  will  be  projected  into  the 
j,h  pixel  (from  the  bottom  of  the  image)  of  the  kth  column  (-n<k<n)  is  sought. 
The  first  task,  which  is  not  executed  unless  the  column  of  pixels  is  being  considered 
for  the  first  time,  is  the  sampling  of  the  terrain  along  a  radial.  This  is  accomplished 
by  filling  some  array,  say  Y,  with  p  successive  elevation  data  values,  Y(R,,0K), 
such  that 


Y(R,,0k)  =  Y(Xik.Yik) 


(54) 
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Where  X)K  =  Rj  cosOK  (55) 

Y|K  =  R|  sin0K  (56) 

R,  =  (1  -  1)  A  R  (57) 

0K  =  tan'1 2 3 4  (K  AY  /V)  (58) 

I  <  I  <  P  (59) 

Here.  y>  is  the  incremental  distance  between  pixel  centers,  f  is  the  focal  length  of 
the  imaging  system,  and  r  is  the  elevation  sample  interval  Note  that 

AR  =  rmax/(P-l)  (60) 


where  rmjx  is  the  maximum  radius  of  interest  and  AR  should  be  chosen  such  that 
the  radial  increment  is  less  than  one-half  the  wavelength  of  the  highest  frequency 
terrain  feature  of  significance  in  the  data  base.  A  radial  profile  such  as  this,  serving 
as  a  local  terrain  model,  is  illustrated  in  figure  13. 


The  visibility  problem  is  solved  implicity  by  processing  from  the 
bottom  of  a  given  column  of  pixels  upward  and  outward  along  the  radial  elevation 
profile  (see  figure  13).  Hie  first  time  that  the  projection  of  two  consecutive  elevation 
data  points  bracket  the  center  of  a  given  pixel  of  interest,  then  terrain  lying  between 
those  two  data  points  will  be  projected  onto  the  pixel.  This  search  procedure,  isolating 
a  visible  portion  of  the  terrain  bracketing  the  pixel  of  interest,  is  the  first  component 
of  the  correlation  algorithm.  The  second  component  is  a  recursive  procedure  for 
isolating  a  point  of  the  terrain  just  identified  that  will  be  projected  with  arbitrary 
accuracy  onto  the  center  of  the  pixel  of  interest.  This  is  done  by 

1 .  Approximating  the  terrain  by  a  linear  model. 

2.  Solving  for  the  point  of  the  linear  model  that  will  be  projected 
onto  the  center  of  the  pixel. 

3.  Accessing  the  actual  elevation  data  value  at  the  predicted  point. 

4.  Checking  the  projection  of  the  actual  point  against  the  re¬ 
quired  tolerance  and  iterating  the  procedure  again,  if  necessary. 
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FIGURE  13.  A  Radial  Terrain  Profile  With  Sample  Points  Projected. 


The  first  time  that  the  correlation  subroutine  is  called  for  a  given 
column  I,  the  counter  governing  the  progression  through  the  elevation  radial  is  set 
to  unity. 


1  =  1 

The  elevation  values  of  the  first  and  second  entries  of  the  elevation  profile  are  retained 
in  variables  Z1  and  Z2,  since  they  will  be  needed  in  the  second  component  of  the 
correlation  algorithm.  The  array  positions  are  replaced  with  the  image  Y‘  coordinates 
of  their  projections  (actually.  Y(  1 )  is  replaced  with  a  large  negative  number  since  the 
actual  projection  is  -100).  This  is  illustrated  by  the  following  code: 

Z1  =  Y( 1 ) 

z:  =  Y(2) 

Y(  1 )  =  -100 
Y(2)  =  PROJ(Y  (2)  ) 

where  PROJlY  (2)  )  symbolizes  the  operation 

PROJjY  (2)  )  =  Yo  +  &  (t/cos0K  >  (h  -  7  Y  (2)  ) /r  (61) 

the  test  of  the  first  component  of  the  algorithm  is  next  executed.  If  the  center  of  the 
current  pixel  of  interest.  YS  =  j  x  y.  is  less  than  Y  (2).  then  the  correlation  logic 
described  below  is  executed.  If  not.  I  is  incremented.  Zl  and  Z2  are  updated. 
Y(l  +  1)  is  transformed,  and  the  search  procedure  continues.  If  YS  lies  between 
Y  (I)  and  Y  (1  +  1).  then  the  search  ends  and  the  correlation  logic  described  below 
is  executed.  If  the  current  points  don’t  bracket  YS.  then  I  is  incremented  again, 
unless  the  end  of  the  elevation  profile  has  been  reached.  In  this  case,  a  flag  is  set 
specifying  that  the  rest  of  the  current  column  of  pixels  should  be  imaged  as  ‘sky-, 
since  no  terrain  within  rmax  will  have  a  projection  onto  the  current  point  or  onto 
any  higher  pixel  in  the  current  column. 

The  qualitative  description  given  above  of  the  first  component  of 
the  correlation  algorithm  may  be  symbolically  coded  as  follows: 

10  1=1+1 

IF  ( I.NE.P)  GO  TO  70 

NFLAO  =  I 

RFTURN 

70  Zl  =  Z2 

Z2  =  Y  (I  +  1 ) 

Y  (1  +  1 )  =  PROJ  (Y  (I  +  1)1 
1 1  ( Y  (I  +  b  GH.YS.AND.Y  (I).LI  .YS)  Go  to  20 

go  ro  10 
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Assume  that  the  above  code  has  been  successfully  executed  and 
that  two  points  of  a  radial  elevation  profile  have  been  found  with  projections  brack¬ 
eting  the  Y'  value  of  the  current  pixel  of  interest.  The  remaining  component  of  the 
algorithm  needs  to  be  executed,  that  is. to  find  the  coordinates  of  a  point  along  the 
profile  with  a  projection  lying  within  the  specified  tolerance.  TOL,  of  the  pixel 
center  YS.  The  iterative  procedure  for  this  will  now  be  examined. 


The  iterative  procedure  used  to  find  a  terrain  point  between  the 
known  array  positions  Y(l)  and  Y(1  +  1)  satisfying  the  tolerance  criteria  is  based 
on  two  observations: 


1.  The  terrain  between  the  I*1'  and  the  1  +  1st  elevation  data 
values  Z1  and  Z2  will  be  monotone  (increasing  or  decreasing) 
if  the  resolution  r  is  adequate. 

2.  An  analytic  solution  to  the  problem  of  finding  the  point  corre¬ 
sponding  to  YS  exists  for  the  case  that  the  terrain  is  linear. 


In  the  first  observation,  it  is  implied  that  a  series  of  linear  approxi¬ 
mations  to  the  terrain  between  the  two  data  points  will  converge  to  a  solution.  In 
the  second  observation,  a  quick,  analytic  method  is  presented  for  predicting  the 
position  of  a  data  point  that  will  map  onto  YS,  based  on  the  linear  approximations. 
By  then  accessing  the  predicted  data  points  and  evaluating  the  projection  of  the 
actual  point  in  terms  of  the  tolerance  criteria,  an  easily  developed  iterative  procedure 
will  yield  a  suitable  point. 


The  key  to  this  portion  of  the  algorithm  is  the  ability  to  determine 
a  point  on  a  linear  surface,  the  perspective  projection  of  which  will  fall  onto  a  pre¬ 
determined  point  on  the  image  plane.  The  X'  coordinate  of  the  point  has  already  been 
determined  from  the  radial  profiles.  Thus,  the  Y1  coordinate  is  of  concern.  As  above, 
let  the  Y'  coordinate  of  the  screen  point  of  interest  take  the  value  YS.  If,  as  shown 
in  figure  14.  it  is  known  that  two  elevation  points,  ZU  and  ZL,  are  visible  at  dis¬ 
tances  from  the  observer  of  RL  and  RU.  respectively,  then  the  terrain  between  the 
two  points  may  be  modeled  by  the  linear  function 

<ZU  -  ZL) 

Z  ( R)  =  -  (R-RD  +  ZL  (62) 

(RU  -  RL) 
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FIGURE  14.  Concave  Radial  Profile. 


After  substituting  this  into  the  Y'  equation  of  the  perspective  projection  and  solving 
for  the  R  such  that  the  projection  of  Z(R)  is  equal  to  YS,  it  is  seen  that 

R  =  ~hf  +  <ZL)^T  ~  KZU  -  ZL)  C/3  t  (RL)  /  A] 

[YS  -  Y <p\  cos 0  -  [(ZU  -  ZL)  VP  7  /A) 


This  predicted  radius  is  then  used  to  access  the  actual  elevation  at 
that  point.  The  elevation  is  then  projected,  and  if  within  the  tolerance  criteria,  is  a 
suitable  point.  This  logic  may  be  symbolically  coded  as 

XI  =  XO  +  R*COS(THETA) 

Y!  =  YO  +  R*SIN(THETA) 

CALL  ALT(Xl.Yl.Z) 

YTRY  =  PROJ(Z) 

YERR  =  YTRY  -  YS 

li  t ABS(YERR).LL.TOL))  GO  TO  30 


where  ALT  is  a  I'ORTRAN-callable  subroutine  that  will  return  elevation  values 
(z)  at  specified  points  (x,y). 


Two  eases  exist  if  the  projection  of  the  predicted  point  is  outside 
of  the  tolerance  bounds.  These,  corresponding  to  locally  convex  and  concave  terrain, 
respectively,  are  illustrated  in  figures  14  and  15. 


Consider  the  concave  case  first.  In  this  case.  Yl.RR  =  YTRY  -  YS 
is  less  than  zero:  the  convex  ease  corresponds  to  a  positive  value  of  YL.RR. 

IF(  YLRR.GTO)  GO  TO  40 

This  situation  is  illustrated  in  figure  14.  It  is  clear  that  a  new.  more  accurate  linear 
approximation  to  the  terrain  may  be  achieved  by  substituting  the  value  of  r  derived 
from  the  first  prediction  for  the  value  of  /.L,  and  correspondingly  replacing  the 
value  of  RL  with  the  predicted  radius. 

ZP  =  zu  -  z 

ZL  =  /. 

RL  *  R 

DFLTA  =  RU  -  RL 
GO  TO  50 


The  program  will  then  predict  a  new  radius,  as  outlined  above, 
ami  in  successive  approximations,  will  approximate  the  desired  point  with  an  arbitrary 
degree  ol  accuracy. 


I  he  convex  case  is  similarly  simple  (see  figure  15).  In  this  case, 
the  upper  point  and  radius  are  modified  before  proceeding  to  the  next  iteration  of 
the  algorithm.  In  a  manner  similar  to  that  ol  t tie  concave  case,  the  logic  may  ho  sym¬ 
bolized  by 


ZP  =  Z  -  ZL 
ZU  =  z 
RU  =  R 

f)l  LTA  =  RU  -  RL 
GO  TO  50 
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FIGURE  15.  Convex  Radial  Profile. 


Similar,  successively  more  accurate  approximations  to  the  desired  point  will  he  made 
until  a  satisfactory  point  is  found,  i.e.  until  the  projection  of  a  predicted  point  lies 
within  the  tolerance  interval  of  the  point  YS. 


Once  a  satisfactory  point  is  found,  control  returns  to  the  main 
routine.  To  reduce  redundant  operation  of  the  correlation  routine.  NFLAG,  (the 
'sky’  Hag  noted  above)  one  can  pass  the  pointers  to  position  in  the  elevation  arras 
and  the  last  two  elevation  values  to  the  main  routine.  Further,  with  the  polynomial 
terrain  data  base,  the  orientation  of  the  terrain  may  be  determined  at  the  same  time 
that  the  predicted  points  are  tested  against  the  tolerance  criteria.  Consequently,  the 
slope  parameters  described  below  are  also  passed  to  the  main  routine. 
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C.  SLOPE  DETERMINATION.  In  this  section,  the  problem  of  determining 
the  parameters  necessary  to  calculate  the  brightness  of  the  surface  at  an  arbitrary 
point  on  that  surface  will  be  discussed.  In  particular,  the  brightness  of  the  surface 
at  points  as  determined  by  the  algorithms  of  the  previous  section  will  be  calculated, 
l  he  actual  calculation  of  the  brightness  of  the  terrain  at  our  point  of  interest  will 
not  be  discussed  because  it  is  conceptually  and  algorithmically  better  treated  with 
the  calculation  of  pixel  density  in  the  next  section.  From  the  previous  algorithms, 
at  a  given  point,  the  brightness  of  terrain  obeying  Lambert’s  law  is  a  function  of  the 
cosine  of  the  angle  0  between  the  normal  to  the  surface  and  the  vector  defining  the 
incident  radiation.  Similarly,  everything  being  equal,  the  brightness  of  terrain  obeying 
the  l.oinmel-Seeliger  law  is  a  function  of  cos 0.  and  the  cosine  of  the  angle  i  between 
the  normal  to  the  surface  and  the  vector  from  the  point  under  consideration  to  the 
observer.  Thus,  in  this  section  the  algorithmic  determination  of  the  normal  to  a  surface 
for  both  discrete  and  polynomial  terrain  data  bases  will  be  discussed.  In  addition,  the 
calculation  of  the  cosine  of  the  angle  between  this  vector  and  some  arbitrary  vector 
as  defined  by  a  polar  angle  a  and  an  a/imuthal  angle  (3  will  be  presented. 


1.  Normal  to  a  Surface.  Having  found  a  point  on  the  surface  of  the 
terrain  with  a  corresponding  projection  within  the  pixel  of  interest  on  the  image  plane, 
one's  next  task  is  to  determine  the  orientation  of  the  surface  at  that  point.  The  most 
convenient  way  to  define  the  orientation  is  by  a  unit  vector  that  is  normal  to  the 
surface  at  that  point. 

A  two-dimensional  surface  can  be  defined  by  the  equation 

Z  =  Z(u.v)  (64) 

where  u  and  v  are  arbitrary  curvilinear  coordinates  on  the  surface  of  the  terrain. 
The  normal-to-a-surface  at  a  point  is  defined  by  the  cross  product  of  any  two  district 
vectors  tangent  to  the  surface  at  that  point.  This  is  clear  since  the  vector  defined  by 
the  cross  product  of  two  vectors  is  perpendicular  to  both  of  them.  Two  such  vectors 
are  defined  by  the  partial  derivatives  of  the  function  with  respect  to  the  two  variables. 
Thus,  the  normal  vector  (not  a  unit  vector)  is  given  by 


Generalized  curvilinear  coordinates  are  of  little  interest  because  most 
topographic  data  bases  are  defined  by  the  usual  orthogonal  cartesian  coordinate 
system.  However,  two  algorithms  are  of  interest  at  this  point:  (  I  I  the  generation 
of  normals  from  a  discrete  elevation  data  base,  and  (2)  the  generation  of  normals 
directly  from  the  coefficients  of  a  polynomial  terrain  data  base.  Algorithms  of  both 
types  were  implemented  in  the  I-  I'L.  software. 


a.  Discrete  Data  Bases  First,  consider  an  elevation  data  base 
composed  of  discrete  elevation  data  points.  No  particular  format  will  be  assumed 
for  these  data  points  (see  Yoeli*).  Thus,  the  points  may  be  found  at  the  intersection 
of  some  orthogonal  grid,  maybe  randomly  distributed,  or  maybe  composed  of  points 
selected  on  the  basis  of  arbitrary  criteria.  Having  dealt  with  the  general  case,  one  can 
simplify  the  results  for  the  case  of  data  points  found  at  the  nodes  of  a  uniform  ortho¬ 
gonal  grid. 


Let  us  consider  three  data  points  0  (x.  y.  />.  a  (\.  y.  /).  and 
b  (x,  y,  /.),  surrounding  the  point  P  at  which  we  seek  to  find  the  normal.  These 
three  points  define  the  local  surface  at  this  point.  The  boundaries  of  the  surface  can 
be  defined  by  two  vectors  a  and  b.  respectively,  correcting  the  points  ea  and  b 
to  0.  Algebraically,  these  vectors  are  defined  by 

a  =  a  ( x .  y .  / )  -  0  ( x .  v .  / )  ( (>6 1 

a  =  iay  -  0X.  ay  -  0y.  a,  -  0, )  ((>7) 

and 

b  =  b  (x.  y.  /.)  -  0  (x.  y.  /.)  ((• 

b  =  <l\  -  flx.  by  -  Oy.b,  -  0,)  ('■  ! 

Since  the  vectors  a  and  b  define  the  local  boundaries  of  the  surface  arounu  P. 

and  are  thus  copiatiar  and  hence  tangent  to  the  surface,  then  the  (non-unit)  normal 
vector  at  P  is  given  by  Ti  =  a  x  b  with  components 

nx  =  -  az  b^  (70) 

n y  =  a,  bx  -  ax  b,  (71 ) 

n,  =  ax  by  -  ay  bK  (72) 


•See  footnote  26. 


The  length  of  In  I  of  n  is  given  by  >/  (n^  +  ny  +  ir ),  and  hence,  n.  the  unit 
normal  vector  is  given  by 


If  the  data  base  is  composed  of  elevation  data  points  found  at  the 
intersections  of  lines  parallel  to  the  X-  and  Y-  axis  and  is  uniformly  spaced,  then  a 
simplification  in  the  formula  is  possible,  resulting  in  reduced  computation  times.  If  a 
lies  on  a  vertical  plane  parallel  to  that  defined  by  the  Z-  and  X-  axis  and  b  lies 
on  a  vertical  plane  parallel  to  the  Z-  and  Y-  axes,  then  a  is  given  by  (ax ,  o,  a7 ) 
and  b  is  given  by  (o,  by,  b7).  Thus,  the  normal  vector  is  given  by 

»x  =  ~ar  by  (74) 


-aX  b7. 


As  a  result,  reductions  will  occur  in  the  computations  necessary  to  compute  the  cosine 
of  the  angle  between  a  normal  vector  and  any  other  vector. 


The  above  formulas  are  somewhat  arbitrary,  because  the  informa¬ 
tion  content  of  the  data  base  is  not  used  in  an  unbiased  manner.  Thus,  if  a  pixel  center 
is  taken  to  coincide  with  a  given  point  of  a  regular  grid  data  base,  the  four  nearest 
points  are  all  equidistant  and,  hence,  are  of  equal  information  content.  The  above 
equations  use  only  two  of  these  four  points  and,  hence,  are  biased  (see  figure  16). 

The  easiest  way  of  removing  this  bias  is  by  shifting  the  pixel  center 
to  the  center  of  one  square  of  the  grid  of  the  data  base  and  then  using  the  mean  of 
the  slopes  determined  along  the  sides  of  the  square.  Hence,  the  Z  -components  of 
equations  (66)  and  (67)  may  be  re-defined  as 


aL  =  1/2  (Z2 

-  z, 

+  z4 

-  z3) 

(77) 

bz  =  1/2  (Z3 

-  z, 

+  z4 

-  Zj ) 

(78) 

where  the  Z,  are  as  defined  in  figure  17.  These  formulas  have  been  implemented 
in  the  HTL  software. 


b.  Polynomial  Data  Bases.  The  problem  of  analytically  deter¬ 
mining  the  normal  to  a  topographic  surface  at  a  point  will  be  discussed  for  a  terrain 
modeled  by  a  polynomial  data  base  of  the  type  developed  for  KTL.29 


The  elevations  are  defined  as  a  function  of  position 
4 

Z(X,  Y)  =  £  Zj(X,  Y)  Wj(X,  Y )  (79) 

i  =  1 

where  the  Z;(X,  Y)  are  the  four  partially  overlapping  polynomial  functions  locally 
defining  the  terrain  around  the  point  P(X,  Y),  and  the  W^X.  Y)  are  the  four  corre¬ 
sponding  weight  functions  used  to  define  the  terrain  in  the  overlap  area. 


The  normal  to  the  surface  at  the  point  P(X,  Y)  can  be  defined 
in  terms  of  the  two  partial  derivations,  3Z/3X  and  9Z/9Y,  as  outlined  above.  From 
straightforward  applications. 

4 

az /3X  =  £  OZ,(X.Y)/3X  Wj(X.Y)  +  3Wj(X,Y)/3X  Z,(X.Y))  (80) 


4 

3Z/9Y  =  £  OZj(X,  Y)/dY  Wj(X,  Y)  +  9Wj(X.  Y)/9Y  Zj(X.  Y))  (81) 

i  --  I 

In  use  equations  (80)  and  (81),  one  must  have  a  vector  representation  in  a  form 
analagous  to  the  vectors  defined  for  the  discrete  data  base.  The  best  concept  of  this 
is  to  consider  tiiese  tangent  vectors  as  defining  a  plane  tangent^  to  the  topographic 

surface  at  the  point  of  interest.  If  a  describes  9Z/0\  and  b  describes  9Z/0y. 

then  the  vectors  a  and  b  can  be  defined  by 

~a  =  (1.0.  aZ/ax,  (82) 

~b  =  (0.  1,»Z/3Y)  ,83) 


29 

J.  Jancaitis  ami  J  Junkins.  Mathematical  Techniques  for  Automated  Cartography.  I'.S.  Army 
graphic  Laboratories.  I  or t  IM voir,  Virginia,  I  TL-CR--73-4.  1-cbruary  1973.  AD-75K  300. 
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remembering  that  a  and  b  lie  in  vertical  planes  parallel  to  the  X-  and  Y-axes,  res¬ 
pectively.  The  normal,  n,  is  defined  as  above  with 


=  -9z/dX 

(84) 

=  -9Z/av 

(85) 

=  1 

(86) 

=  n/lnl  =  n/^/ln^  +  n^  +  n^) 

(87) 

2.  Calculation  Of  Angles  To  A  Normal.  Next  will  be  discussed  the 
problem  of  determining  the  angle  i  between  n,  the  normal  vector  to  our  topographic 
surface  at  a  point  P,  and  determining  some  vector  S,  with  component  Sx,  Sy. 
and  Sz.  We  shall  define  S  in  terms  of  a  polar  angle  > p,  and  an  azimuthal  angle  0 

1  (see  figure  18).  Then 

1 


Sx 

=  siiv  cosO 

(88) 

sy 

=  si  tv  sinO 

(89) 

Sz 

=  COSif 

(90) 

-A 

Note:  As  defined,  S  is  a  unit  vector. 

As  noted  above,  our  interest  actually  lies  in  the  cosine  of  the  angle  between 
these  two  vectors.  If  the  scalar  product  of  two  vectors  is  defined,  then 

S  -  n  =  I  "s  I  Ini  cos  /  =  Sx  nx  +  Sy  ny  +  S7  n7  (91) 

where  i  is  the  angle  between  the  two  vectors.  If  S  is  normalized,  then,  by  equations 
(58)  to  (60) 

cos /  =  S  •  n/(|  s  I  1  n  I )  (92) 

cos /  =  Sx(ay  b,  -  a,  bz)  +  Sa<az  bx  -  ax  by)  +  S,(ax  by  -ay  bx)/ 

(ay  b,  -  a,  by ):  +  (a,  bx  -  ax  by  )2  +  (ax  by  -  ay  bx ):  (93 ) 
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If,  as  outlined  above,  a  and  b  fall  into  vertical  planes  parallel  to  the 
X-  and  Y-axes,  respectively,  then  this  formula  is 

-Sx  a,  bv  -  Sv  ax  b7  +  Sz  ax  bv 
cos  /  =  yy~{(az  by)2  +  (ax  bz)2  +  (ax  by  )2j.  (94) 

where  ay  =  0  and  bx  =  0  for  this  case. 

Further,  if  the  components  of  the  normal  vector  are  calculated  from  the  polynomial 
data  base  as  in  equations  (84)  and  (85).  then 

-Sx  3Z/aX  -  Sv  bz/bY  +  Sz 

cos  /  =  ^{(^Z/ax)2  +  (9Z/aY)2  +  l}  (95) 

It  will  be  recalled  that  the  Lommel-Seeliger  law  uses  the  viewing  angle  nz.  which  is 

the  angle  between  the  normal  to  the  surface  and  the  unit  ra^  V  to  the  observer,  as 

well  as  the  angle  of  illumination  /'  between  the  unit  ray  V  to  the  sun  S  and  the 
normal  to  the  surface.  The  general  case  follows  equation  (93)  with  the  components 
of  V,  replacing  those  of  S.  and  e  replaced  /.  Similar  substitutions  are  held  for 
equations  (94)  and  (95).  For  the  orthonormal  view,  equations  (94)  and  (95) 
become 


Vz  ax  bv _ 

COS /  =  V^-fcz  by  +  ay  bz  +  “x  by }  (96) 

and 

_ 

COS  i  =  Vr{(9Z/ax)2  +  (9Z/ay)2  +  lj-  (97) 

where  Vz  is  the  Z-component  of  the  unit  ray  from  the  point  of  interest  to  the  ob¬ 
server. 
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D.  DENSITY  COMPUTATIONS.  The  current  problem  is  to  calculate  the 
illumination  of  a  pixel  of  the  image  plane,  for  either  perspective  or  orthonormal 
projection  of  terrain  obeying  either  Lambert’s  or  the  Lommel-Seeliger  brightness  law, 
for  a  given  direction  of  illumination  and  a  given  observer  location. 


The  position  of  a  point  on  the  terrain  corresponding  to  the  current  pixel  that 
we  are  processing  and  the  normal  to  the  surface  at  that  point  have  already  been  deter¬ 
mined.  First,  computation  of  lighting  and  viewing  vectors  as  used  in  the  ETL  software 
will  be  defined.  The  vectors  are  then  applied  to  the  computation  of  the  illumination 
of  our  pixel.  Next,  the  density  concept  used  the  concept  of  density  to  define  the 
properties  of  the  pixel  that  was  used  to  define  the  image  produced  on  an  output  de¬ 
vice  will  be  introduced. 


1 .  Definition  and  Calculation  of  Vectors  of  Observation  and  Illumination. 

First,  the  vector  of  illumination  that  describes  the  position  of  the  sun  relative  to  the 
terrain  of  interest  will  be  defined.  Algorithmically,  the  normal  vector  is  needed  in 
terms  of  its  X-,  Y-,  and  Z -components,  in  the  (X,  Y,  Z)  coordinate  system  of  the 
object.  An  angular  definition  is  sometimes  easier  to  understand,  specifying  an  altitude 
<f  and  an  azimuth  0  for  the  sun.  Fortunately,  a  simple  transformation  is  possible 
(see  figure  19).  The  ETL  data  bases,  as  well  as  most  others,  can  locally  define  the 
Y-eoordinate  of  the  terrain  as  pointing  due  north  and  the  X-coordinate  as  pointing 
due  east.  Aeronautical  convention  fixes  azimuth  such  that  0°  is  due  north,  or  parallel 
to  the  Y-axis,  and  90°  is  due  east,  or  parallel  to  the  X-axis.  Altitude  is  defined  such 
that  0°  is  parallel  to  the  surface,  and  90°  points  towards  the  zenith.  Thus,  if  S  re¬ 
presents  the  vector  pointing  towards  the  sun,  the  transformation  is 


Sx 

=  cos 

COsd' 

(98) 

sy 

=  cos y? 

sinO1 

(99) 

s. 

=  siny? 

(100) 

where  we  introduce  the  variable  0'  =  90°  -  0. 


Next,  consider  the  definition  of  the  unit  vector  of  observation,  V. 
pointing  from  the  point  of  the  surface  that  we  are  considering  to  the  instrument  of 
observation.  This  vector  is  important  only  for  the  Lommel-Seeliger  law;  it  does  not 
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W  =  270° 


X  E  =  90° 


S  =  180° 


FIGURE  19.  Definition  of  Solar  Vector. 


have  a  role  in  the  brightness  of  a  surface  as  described  by  Lambert’s  law.  Further,  for 
the  case  of  an  orthonormal  image  of  terrain  obeying  the  Lommel-Seeliger  law.  this 
vector  is  always  vertical,  in  accordance  with  the  definition  of  an  orthononnal  image. 


All  that  needs  to  be  considered  then  is  the  calculation  of  V  for  a  per¬ 
spective  view,  and  this  need  only  be  done  when  a  Lommel-Seeliger  image  is  to  be 
created.  Consider  a  perspective  image  geometry  as  illustrated  in  figure  20.  The  focal 
point  P  is  defined  at  some  distance  Z()  above  a  point  Q  of  the  terrain.  A  vertical 
plane  corresponding  to  the  /,h  column  of  pixels  is  defined  by  requiring  that  it  be  a 
vertical  plane  containing  PQ  and  that  it  be  positioned  at  an  angle  0  to  the  northerly- 
vertical  plane.  From  equation  (58),  0  can  be  defined  in  terms  of  a  principle  viewing 
direction  0,,  specified  by  the  user,  and  an  angle  0,  relative  to  the  principle  direction, 
(figure  20).  Thus. 

0  =  0,,  +  oj.  non 

,  /AX 

0p  +  tan'1  ( - )  (102) 


4 


FIGURE  20.  Definition  of  V. 


where  A  X  is  the  incremental  distance  between  columns  of  pixels  on  the  image  plane, 
/  defines  the  current  column  of  interest,  and  f  is  the  distance  between  P  and  the 
image  plane  along  the  principle  viewing  direction. 


Assume  that  point  T  (r.  0.  Z)  of  the  terrain  is  found,  corresponding  to 
the  pixel  of  interest,  where  0  is  as  above,  r  is  the  distance  from  O  to  the  projection 
of  T  onto  the  horizontal  plane  containing  O.  and  Z  is  the  elevation  of  T  above  this 
plane.  Then  the  angle  of  altitude  y>  is  defined  by 


=  tan'1 


(103) 


finis,  the  components  of  the  perspective  viewing  vector  V  for  a  given  pixel  of  the 
perspective  projection  as  defined  in  terms  of  previously  determined  quantities  is 

V\  =  -cosy?  sinf?  (104) 

\\  -  -cosy:  cos 0  (105) 

V,  =  siny>  (I  Ob) 

finis,  the  parameters  necessary  to  compute  the  image  illumination  for  the  cases  that 
are  being  considered  have  been  defined. 
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2.  Image  Illumination  Calculation.  To  calculate  image  illumination, 
one  must  use  the  light-scattering  laws  previously  reviewed.  In  the  HTL  Software, 
the  user  may  specify  that  the  brightness  of  the  terrain  is  to  be  modeled  by  either 
the  Lommel-Seeliger  law,  B  =  To  b£2(a)/l  +  cos0/cos/.  or  by  Lambert’s  law. 
B  =  To  cos/,  where  the  variables  are  defined  in  appendix  A. 


First,  normalize  Ho;  it  is  not  a  user  defined  parameter.  Second,  assume 
in  the  case  of  the  Lommel-Seeliger  law  that  bX  ( a )  is  constant  for  all  a  and  that 
this  factor  drops  out.  Thus,  in  essence  the  light-scattering  law  is  reduced  to 

B  =  |  I  +  cost) /cos/]'1  (107) 

for  the  Lommel-Seeliger  law  and  to 

B  =  cos  /  (108) 


for  Lambert’s  law. 


As  mentioned  in  section  II.  D,  the  concern  is  with  the  illumination  of 
an  image  element  in  an  optical  system,  not  with  the  brightness  of  the  illuminating 
point  as  observed  at  the  optical  system.  As  approximated  within  the  LTL  Software, 
the  relationship  is  one  of  proportion. 

<L>  *  ctB  (109) 

where  <  Li  >  is  the  illumination  of  our  pixel,  and  B  is  the  brightness  of  some  point 
of  the  image  found  by  the  object-image  correlation  algorithm  (see  section  III.  \). 
The  calculation  for  B  is  dependent  only  on  the  relevant  angles,  which  are  found  by 
evaluating  the  slope  at  the  object  point  by  means  of  the  appropriate  algorithm  (see 
section  III,  B),  the  position  of  the  observer  (for  the  Lommel-Seeliger  case)  based 
on  equations  (104)  to  (106),  and  the  position  of  the  sun  as  defined  by  equations 
(98)  to  (100).  The  angles  are  then  used  to  determine  the  cosines  of  the  relevant 
angles  by  the  appropriate  formula  of  the  sequence  (91 )  to  (97).  The  cosines  are  then 
used  to  determine  the  brightness  by  which  the  illumination  of  the  pixel  is  approx¬ 
imated  (after  normalization). 


However,  the  quantity  that  is  to  be  sed  to  define  the  image  to  be  pro¬ 
duced  is  not  illumination,  rather  it  is  the  density  of  the  image.  Before  specifying  the 
relationship,  the  meaning  of  density  must  be  explained. 
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Consider  a  piece  of  photographic  film,  with  illumination  Eo,  normal  to 
the  surface  of  the  film.  Let  us  assume  that  the  film  has  been  exposed  and  developed 
and,  hence,  that  some  light  will  be  absorbed.  The  change  in  illumination  across  an 
infinitesimal  layer  of  the  fill  will  be 

dr:  =  -bEdt  diO) 

where  b  is  the  fraction  of  the  light  absorbed  in  passing  a  unit  thickness,  E  is  the 
illumination  of  the  upper  surface  of  the  infinitesimal  layer,  and  dt  is  the  thickness 
of  the  layer.  Integrating,  we  find  that  the  illumination  of  the  far  side  will  be 

E  =  Eoe'bt  (111) 

where  t  is  the  thickness  of  the  film.  If  the  film  is  designed  for  viewing  from  the  front, 
then  assuming  that  all  light  is  reflected  at  the  bottom  of  the  film,  it  undergoes  similar 
absorbtion  in  the  second  pass  through  the  film  and  obeys  Lambert’s  law  upon  striking 
the  upper  surface  (as  in  a  matte  print).  The  brightness  of  the  film  will  be  given  by 

B  =  Hoe'2  bt  (112) 

In  any  case,  convention  defines  the  image,  not  by  the  brightness  or  in¬ 
tensity,  but  by  the  density.  The  density,  D,  is  proportional  to  the  exponent  of  equa¬ 
tions  (111)  or  (112).  Consider  (111)  and  let 

D'  =  ln(E/Eo)  =  In  (e'bt)  =  -bt  (113) 

This  is  not  the  usual  density,  which  is  conventionally  defined  in  terms  of  the  log,  0 
and  must  be  positive.  The  relation  is  given  by 

D  =  log  (Eo/H)  =  log,  0e+bl  =  abt  =  a  2D'  (114) 

where  a  =  l/ln,0.  The  term  Eo/E  is  known  as  the  opacity. 

Since  the  intensity  Eo  in  the  ETL  algorithm  is  normalized,  the  density 
D  is  defined  as 

D  =  log,  o  (1/E)  (115) 

where  E  is  calculated  as  outlined  above.  Output  devices  have  between  1 2  and  256 
different  discrete  density  values  available,  with  the  values  linearly  positioned  between 
some  minimum  and  maximum  density  values.  Consequently,  a  density  scaling  factor 
is  used  in  the  ETL  algorithms  to  take  advantage  of  the  latitude  in  densities  offered 
by  the  output  devices,  storing  each  density  value  to  an  8-bit  byte. 

Thus  the  analysis  of  the  basic  algorithms  of  the  ETL  shaded  relief 
software  is  completed. 


I  (iKAl’HK  PRODUCTION.  Tilt*  basic  algorithms  governing  the  pixel- 
h v  -pi v el  generation  ol  the  shaded  rebel  images  have  been  described.  Hie  result  ol 
these  algorithms,  lor  a  given  pixel,  is  a  number.  The  process  of  converting  this 
number  into  a  pixel  ut  corresponding  density  at  a  given  position  relative  to  the  other 
p1'-  i  u  the  image  remains  to  be  discussed. 


Ihree  types  of  devices  are  available  at  I  II  to  generate  gray-shade  images, 
ill  line  printers  for  low  resolution  "proofing”  plots.  (2)  a  VIKSAII.V  raster 
plotter  to  generate  moderate  resolution  digital  halt-tone  images,  and  ( 3  I  an  ITectron 
Beam  Recorder  (I  HR)  to  generate  high  resolution  near-continuous  tone  images. 
I  he  tirst  two  output  devices  require  special  algorithms  to  generate  shaded  relief  images, 
and  the  third  device  directly  accepts  a  file  containing  sequential  rows.  Since  the  soft¬ 
ware  to  generate  line  printer  or  VI  RSATT  C  graphics  requires  sequential  processing 
similar  to  that  of  the  b.BR  and  since  it  may  be  derivevl  to  output  a  given  image  to  any 
or  all  output  devices,  the  product  of  the  ITI.  shaded  relief  software  is  a  disk  file 
contouring  the  coded  density  data.  Both  liles  store  7  bits  of  data  (densities  0-1  27t 
in  K-bit  bytes.  I  ach  record  represents  one  column  of  pixel,  and  successive  records 
represent  successive  columns,  lor  eompability  with  the  disk  access  routine  DSKTRN 
used  at  I  I  I...  the  image  files  generated  are  of  uniform  si/e.  2048  bytes  by  204b 
records  for  the  file  l.PIM  RDAT  generated  by  the  shaded  perspective  routine  SHDI’UR. 
and  1024  by  tes  by  1024  records  for  the  orthonormal  shaded  relief  routine  SSU’LI’. 


I  he  line  printer  routine  used  was  devised  by  R  Yoeli  and  uses  multiple  stikings 
to  generate  varying  densities. 5  ■’  I  he  look-up  table  used  lor  this  algorithm  is  shown  ii 
table  I.  I  he  VI  RSATIC  halftoning  software  creates  a  digital  halftone  pattern, 
characterized  by  44  halftone  dots  per  inch.'1  Using  the  1  BR  is  described  in  the 
literature. ’’ ; 


Since  all  the  algorithms  used  are  described  m  available  literature,  no  additional 
discussion  is  necessary.  It  is  clear,  though,  that  the  file  generated  by  the  I  IT  soft¬ 
ware  can  be  used  by  any  gray-shade  graphics  generation  dev  ice  with  minimal  trouble 


’lY.  V  < n'li.  “Hk'  nui luiij/jlinn  at  A11.1I1I11  Hill  Shnilim.'."  t'art J.  I  w. 

’  ^  K  Kosi'nlh.il.  Rriv.ilf  (  iimuiunii'.itiiiii.  t  S.  Vimy  I- nymi'i'r  I  ■  »p*»i'ru ptiii  I  .il'm.itmii'i.  I  mi  Iti  lioii .  Viii’tni.i, 
t  lulv  I  0  70 

' “O/nTo/imi  an!  t lunili  iiu/iii  Manua I  tor  Carfrnral’ltii  I  HR  Xi  ih  'ii.  lnui.i-  (,i.i|>Iiks.  tiu  ..  muli'i  .umi.nl  \ 

1  >A/\(  »-5  ^  -  ?  a  <  -n77l. 
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TABLE  1.  Line 

Printer  Density  Table. 

CHARACTERS 

DENSITY 

1st  Printing 

2nd  Printing 

3rd  Printing 

0.00 

• 

0.07 

- 

0.10 

1 

0.12 

i 

0.15 

V 

0.19 

# 

0.22 

(•> 

0.26 

u 

• 

0.30 

A 

/ 

0.35 

A 

V 

0.40 

A 

(" 

0.46 

A 

V 

1 

0.52 

A 

u 

4 

0.60 

A 

(■« 

W 

0.70 
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F.  SPECIAL  PURPOSE  ALGORITHMS.  As  noted  in  the  introduction  to 
this  section,  a  number  of  special-purpose  algorithms  devised  to  address  specific  carto¬ 
graphic  problems  have  been  implemented  in  the  F.TL  shaded  relief  software.  The 
algorithms  enable  the  solar  azimuth  to  be  varied,  thus  enhancing  the  impression  of 
terrain  relief  and  delineating  the  ridge  lines.33  Producing  “relief  contours”  enables 
atmospheric  haze  to  be  simulated,  thus  providing  the  option  of  simulating  an  addi¬ 
tional  qualitative  distance  cue  in  the  perspective  images. 


1.  Variable  Sun  Angle  Algorithms.  A  problem  occurs  when  a  single 
source  of  illumination  is  used  to  delineate  similar  terrain  features  in  different  orien¬ 
tations.  This  is  as  much  a  problem  for  aerial  photography  as  it  is  for  artifically  gener¬ 
ated  orthonormal  or  perspective  images.  First,  the  problem  will  be  analyzed,  then  the 
various  alleviating  procedures  developed  by  cartographers  in  the  past  will  be  con¬ 
sidered.  Finally,  the  adaptations  of  procedures  implemented  in  the  ETL  software, 
will  be  examined. 


The  problems  inherent  in  using  a  single  source  of  illumination  may  be 
seen  in  figure  21,  which  depicts  an  idealized  ridge  illuminated  by  side  lighting.  The 
ridge  slop  facing  the  sun  is  illuminated,  and  the  far  slope  is  in  shadow.  The  form  of 
the  terrain  is  clear  to  an  observer  if  he  is  aware  of  the  direction  of  illumination.  Now 
consider  a  situation  such  as  in  figure  21(b),  in  which  the  illumination  is  parallel  to 
the  ridge  line.  In  such  a  case,  both  sides  of  the  ridge  are  equally  bright,  and  no  infor¬ 
mation  as  to  the  terrain  form  is  available  to  the  observer.  It  is  clear  that  in  an  area  with 
varied  topography  and  illuminated  by  a  single  source  of  light,  the  form  of  the  terrain 
is  poorly  delineated,  with  some  features  exaggerated  and  some  washed  out. 


As  noted  in  the  introduction,  the  problems  associated  with  depicting 
terrain  form  are  not  new.  For  sometime,  cartographers  have  been  manually  shading 
contour  maps  to  improve  interpretation  of  the  terrain  features.  A  simple  solution 
might  be  in  the  careful  choice  of  the  direction  of  lighting,  thus  optimizing  the  de¬ 
lineation  of  the  terrain.  However,  a  problem  exists  that  prohibits  such  a  solution. 
This  is  the  problem  of  interpretation,  which  requires  a  near-intuitive  knowledge  of 


33P.  Yin-li.  “Die  rich  tun*:  dcs  lulu  bei  analy  tisdicn,”  Kartographischc  Xarhrictrn  Gucnrsloh  I7(l%7), 
pp.  5.17-544. 


69 


1 


light  direction.  SI»:ulod  relict  images  are  usually  treated  as  though  lighting  is  from  tlie 
top  or  upper  l  it  Because  of  this  treatment,  cartographers  usually  use  north-west 
lighting  when  prodiisina  sliaded  rebel  overlays  lor  contour  maps,  thus  preventing  the 
choice  of  the  lighting  direction 


hi  ovetcome  the  problem,  cartographers  have  developed  the  procedure- 
oh  implicit,  varying  the  direction  oh  the  lighting  to  cinpha-vc  all  major  terrair  lea- 
lures  I  he  vari.ition  in  lighting  direction  i •  .round  a  principal  direction  defining  north¬ 
west  le'iitiug.  Although  cartographers  manually  prepare  shaded  rebel  overlays  ol  con- 
t ou i  e  ip.s,  substantial  progress  has  been  made  in  automating  the  process.  Although 
Unite  sophisticated,  the  present  algorithms  are  largely  experimental.  ''4  The  algorithms 
used  at  III  are  relatively  simple,  created  largely  to  demonstrate  the  capability. 

I  he  I  IT.  sohtvvare  is  based  on  the  variation  of  the  azimuthal  component 
o|  the  illumination  vector.  Thus,  the  vertical  component  will  not  be  considered  in  tins 
discussion,  \orth-wcst  lighting  will  be  used  throughout,  and  algorithm  will  be  based  on 
the  local  <"i  Nation  of  the  surface,  as  defined  by  the  normal  vector  n.  I  ll  -  a/iimuh 
i  h  n  w  ill  pc  ^  . 


first,  let  us  consider  the  ease  of  ridges  parallel  to  the  principal  direction 
of  light  S  (see  figure  23).  The  normals  to  the  two  faces  ol  the  ridge  lie  roughly  in 
the  second  ,md  fourth  quadrants  of  the  (  artesian  plane,  litis  is  the  ease  where  the 
greatest  variation  will  probably  Ire  needed .  as  this  is  an  example  in  which  the  ridge 
would  !'c  vv asm'  I  out.  lo  guide  our  development  of  an  algorithm,  we  note  that  as  the 
ridae  is  rotated  fr  an  an  orientation  parallel  to  the  Y-axis  to  an  orientation  parallel 
lo  the  X-axis,  luce  b  giadu.illy  dims  and  face  a  gradually  brightens.  A  corresponding 
lunge  will  > v  ur  if  the  illumination  vector  S  is  changed  from  a  position  parallel  to 
t!..  \  axis  lo  a  pi '  ution  parallel  to  the  Y-axis.  I  hus.  for  normals  m  the  second  quadrant 
the  "wadiou!"  e fleet  can  be  prevented  by  defining  the  light  vector  components 
S  .  S  in 
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for  normals  in  the  fourth  quadrant. 

l  or  areas  in  between,  one  would  like  a  smooth  transition  between  the 
two  lighting  vectors  used  in  equations  (116  -  119).  This  can  be  defined  by  the  first 
quadrant 

(Sx  =  —cos *n,  Sy  =  sin^n)  90°  <  *>„  <  180°  (120) 

and  for  the  second  quadrant 

(Sx  =  cos*n,  Sy  =  sin*>n)  270°  <  <  360°  (121) 

In  practice,  one  would  like  more  control  over  the  variation  in  lighting 
direction.  The  F.TL  software  enables  the  user  to  input  the  angular  variation  Z0 
desired.  The  above  formulas  are  altered  accordingly.  Thus,  instead  of  the  orthongonal 
lighting  directions  specified  by  equations  (1 16  -  119), 

[Sx  =  -cos(  135°  +  0),  Sy  =  sin(  1 35°  +  0)] ,  325°  +0  <  xpn  <  145°  (122) 

[Sx  =  -cos(  135°  +  0),  Sy  =  sin(135° -0)1.  145°  <  <  135° -0  (123) 

[Sx  =  -cos(  135°  +  0),  Sy  =  sin(135° +  0)1.  135° +0  <  <  225°  (124) 

and 

[Sx  -  -cos(135°  -  0),  Sy  =  sin(135°  —  0)1 ,  225°  <  <  325° -0  (125) 

Formulas  (120  and  121)  are  unaltered,  except  that  the  ranges  are  modified  in  accor¬ 
dance  with  equation  (1 22  -  125). 

Determining  the  local  illumination  vector  straight  forward,  and  it  cal¬ 
culated  immediately  after  the  normals  are  determined,  as  outlined.  The  local  illumin¬ 
ation  vector  is  then  used  to  determine  the  illumination  of  the  local  surface  area  and 
hence,  the  density  of  the  image. 
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2.  Relief  Contours.  Several  attempts  have  been  made  to  combine 
directly  the  quantitative  properties  of  contours  with  the  qualitative  advantages  offered 
by  shaded  relief  images  by  creating  an  image  of  a  contour  terrace  model.  These  at¬ 
tempts  implicitly  involve  creating  a  “layer-cake”  model  of  the  terrain,  with  the 
elevation  discontinuities  corresponding  to  contour  lines.  This  model  is  then  illumi¬ 
nated.  and  shadows  are  cast  by  the  tier  structure,  which  is  then  photographed  In 
practice,  actual  models  are  rarely  created.  Instead,  an  ingenious  manual  method  de¬ 
veloped  by  kitiro  Tanaka  is  used.'''  Working  from  a  contour  map.  one  can  trace 
the  contours  away  from  the  assumed  source  of  light,  keeping  the  nib  parallel  to  the 
light  source.  Thus,  a  variable  width  contour  line  results,  f  or  complete  representation, 
a  gray  background  is  used,  and  contours  facing  the  light  are  similarly  inked  in  white. 
I'he  result  is  a  striking,  if  costly,  representation  of  the  terrain. 


An  alternative  method  of  creating  a  map  with  the  visual  impact  similar 
to  that  of  Tanaka’s  method  can  he  created  using  the  software  developed  at  TTI  . 
The  method  uses  the  main  orthonormal  shaded  relief  routine.  SSL.PLP.  but  calculates 
slopes  in  a  slightly  different  manner.  Briefly,  the  relief  contour  option  of  program 
SSLfM.P  involves  creating  a  square  grid  of  quantized  elevation  data.  The  quantization 
interval  is  a  user  input  parameter  and  corresponds  to  the  contour  interval  of  the 
image.  The  quantized  elevation  values  are  then  used  to  calculate  slope  for  each  pixel 
center.  The  slopes  are  used  to  calculate  image  densities  at  each  pixel  position  as  in  the 
usual  method  for  creating  a  shaded  relief  overlay. 


The  calculation  of  the  slopes  is  straight lorward.  1  ach  pixel  has  a  uniform 
size  and  is  assumed  to  be  square.  T.levation  data  values  are  generated  at  the  ground 
locations  corresponding  to  the  four  corners  of  the  pixel.  Letting  7.  •  be  the  Z- 
value  of  the  upper  left  corner  of  the  pixel.  Zur  be  the  elevation  value  of  the  upper 
right  corner,  and  Z((-  and  Zlr  he  the  corresponding  lower  elevation  values,  we  have 

A/.  ,  AX  =  -  Zul  +  /„  -  Z..1/AX 

A/..,  AY  =  ':<ZU|  -  Z„  +  Z„r  -  Zlr )/  AY 


(12b) 

(12?) 


where  A  X  =  A  Y  =  pixel  size. 


I.i'j.in.j  ■  I  he  Kclk'J  Mi'lhoi]  >1  RTprcsnHin;’  I  opour.ipln  or'  Maps.”  Rev..  4»)(i9M'i)v 

pp.  444—1  f 
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Since  elevation  values  are  quantized,  unless  a  corresponding  contour 
line  passes  through  a  given  pixel,  all  elevations  for  that  pixel  will  thus  be  assigned  the 
neutral  background  density  corresponding  to  Hat  terrain.  If  a  single  contour  line 
passes  through  a  pixel,  then  the  mean  plane  fit  to  the  four  points  corresponding  to 
the  pixel  can  assume  any  of  24  different  orientations.  Since  the  resolution  of  the 
image  created  is  variable,  more  than  one  contour  line  may  pass  through  a  pixel.  Thus 
the  number  of  orientations  is  correspondingly  increased. 


It  should  be  noted  that  ea  a  poin»  of  a  contour  line  will  be  assigned 
to  soi"  pixel  and  that  the  width  of  the  contour  line  cannot  be  less  than  the  size  of 
the  pixel.  To  maximize  contrast,  the  LTL  software  alters  the  vertical  exaggeration 
such  that  illumination  of  slopes  facing  the  source  of  illumination  is  maximized.  Since 
contour  lines  parallel  to  the  direction  of  illumination  will  be  of  low  contrast  relative 
to  the  background,  it  is  usually  convenient  to  utilize  the  variable  sun  angle  algorithm 
described  in  this  report. 


3.  Simulation  of  Atmospheric  Haze.  A  simple  model  to  simulate  one 
aspect  of  atmospheric  haze  has  recently  been  proposed.36  This  model  treats  only  the 
attenuation  properties  of  such  haze,  predicting  for  uniform  haze  an  exponential 
decay  of  the  apparent  luminous  intensity  of  a  surface  element  with  increasing  distance. 
This  is  certainly  one  aspect  of  such  haze,  but  only  in  the  case  of  highly  absorbent  haze 
(such  as,  perhaps,  industrial  sinog)  or  when  the  haze  is  not  actually  imaged  but  shades 
the  ground  as  do  clouds.  The  most  important  prediction  of  this  model  is  that,  for 
thick  haze,  distant  objects  will  appear  very  dark.  This  is  not  the  case  with  most  actual 
haze.  Consider  a  moderately  thick  ground  fog.  Distant  “objects”  in  such  a  fog  ap¬ 
proach  a  uniform,  non-zero  brightness.  To  model  more  accurately  the  effects  of  such 
ba/e.  liTL  personnel  have  developed  a  new  model  of  atmospheric  haze. 


3,’W.  Dunlin,  Jr  "A  Terrain  and  Cloud  Computer  linage  Generating  Model,”  Computer  Graphics.  13(19791, 


Careful  consideration  of  the  physics  of  light  scattering  results  in  a  more 
appropriate  (though  still  approximate)  model  of  haze.  Consider  a  thin  slice  of  the 
atmosphere  of  thickness  dr.  measured  along  a  radial  to  an  observer.  Fog  or  haze  in 
this  atmospheric  section  can  be  modeled  as  a  collection  of  small  randomly  distributed 
particles  with  a  cross  section  a,  and  brightness  b,  with  a  density  of  n  such  particles 
per  unit  volume.  The  attenuation  of  a  light  beam  traversing  this  section  of  the  at¬ 
mosphere  along  the  radial  to  the  observer  will  be 

dE  =  -Enadr  (128) 

where  E  is  the  luminous  intensity  of  the  beam. 


If  the  sun  or  other  source  of  illumination  shines  upon  the  slice,  then 
there  will  be  an  additional  term  to  the  expression  for  the  attenuation  of  a  beam  tra¬ 
versing  the  ground  haze.  This  term,  expressing  the  fraction  of  the  incident  sunlight 
that  is  scattered  into  the  beam,  will  be  proprotional  to  bEsno.  where  Es  is  the 
luminous  intensity  of  the  source  of  illumination.  Detailed  analysis  of  the  situation 
requires  that  the  scattering  be  calculated  in  terms  of  illumination  of  an  imaging  el¬ 
ement.  considering  the  area  of  the  light  sensitive  element,  the  size  of  the  light  accep¬ 
tance  cone  of  it,  and  the  distance  of  a  given  scattering  section  of  the  atmosphere 
from  the  element.  However,  the  net  result  of  these  considerations  is  a  constant  factor. 
It  is  thus  convenient  to  lump  this  constant  together  with  the  brightness,  b,  in  a  new 
constant.  C. 


The  differential  equation  governing  the  propagation  of  light  through  a 
ground  fog.  along  a  path  roughly  parallel  to  the  surface  of  the  earth  is 

dE  =  (-Ena  +  CEno)dr  (129) 

Integration  yields  the  solution 

E(r)  =  exp(-rno)  (CES  -(exp(rna)}-  +  K1  (130) 

where  K  is  a  constant  of  integration.  Two  boundary  conditions  must  be  satisfied  by 
this  constant  of  integration  if  the  result  is  to  be  physically  meaningful.  These  boundary 
conditions  are 


1.  E(r)-+E0  as  na^O.  where  E()  is  the  brightness  of  some 
object  in  the  distance:  and 

2.  E(r)-+CES  as  na-*OQ  or  as  r->oo. 
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The  first  of  these  conditions  corresponds  to  the  physical  situation  of  clean  air,  in 
which  distant  objects  should  be  unobscured.  The  second  boundary  condition  requires 
that  the  model  of  haze  results  in  a  uniform,  finite  brightness  as  the  thickness  of  the 
haze  increases.  Both  of  these  boundary  conditions  are  satisfied  by  choosing 

K  =  h„  -  CT.S  (13!) 

Thus,  the  model  of  haze  implemented  at  TTL  takes  the  form 

1  (r)  =  CHS  +  (t0  -  CES)  exp(-rno)  (132) 

By  applying  the  Tyndall  effect  to  this  formula,  the  effect  of  atmospheric 
ha/.e  on  the  appearance  of  distant  objects  can  be  simulated.  The  Tyndall  effect  notes 
that  very  small  objects,  such  as  suspended  dust,  will  scatter  blue  light  much  more 
than  they  will  red.  Thus,  red  light  will  pass  through  such  a  medium  without  appreciable 
change  in  intensity,  and  most  blue  light  will  be  scattered.  In  color-shaded  relief  dis¬ 
plays,  the  bluish-purple  cast  of  distant  mountains  may  be  simulated  by  generating 
unattenuated  shaded  relief  images  for  all  colors,  except  blue  or  purple.  In  these  image 
components,  the  above  model  for  haze  will  be  used.  The  result  should  be  a  moderately 
bright,  relatively  uniform,  bluish  tint  of  low  contrast  over  distant  objects. 

from  the  above  model  of  atmospheric  haze,  the  effects  of  such  haze 
can  be  more  accurately  predicted  than  with  previous  models.  Although  only  slightly 
more  complicated  in  form,  this  model  should  provide  much  more  qualitative  infor¬ 
mation  to  the  viewer  of  a  shaded  relief  image.  As  such,  the  model  should  ease  the 
problem  of  interpreting  such  images.  In  particular,  the  bluish-purple  cast  of  distant 
mountains  can  be  accurately  modeled,  thus  providing  subtle  distance  clues  otherwise 
unavailable.  This  will  enable  the  accurate  generation  of  color-shaded  relief  images. 


The  algorithms  discussed  in  this  report  have  been  coiled  in  two  FORTRAN 
routines.  One  set  of  routines,  named  SSLPLP.  generates  orthonormal  shaded  relief 

images;  and  the  other,  named  SHDPER.  generates 
IV.  IMPLEMENTATION  perspective  shaded  relief  images.  To  test  the  algorithms 
AND  RESULTS  and  software  that  have  been  developed,  the  two 
routines  use  an  elevation/slope  computation  sub¬ 
routine.  AI.SLP.  that  is  "hardwired”  to  a  polynomial  terrain  data  base  of  Cache. 
Okla.  In  this  section,  the  results  of  these  tests  are  discussed. 


A.  PERSPECTIVE  SHADED  RELIEF  ALGORITHMS.  In  this  section, 
the  results  will  be  described  of  the  implementation  of  the  true-perspective  algorithms 
in  the  shaded  relief  routines  SHDPER.  Running  on  a  PDP-11/45  minicomputer, 
one  can  create  a  shaded  relief  perspective  image  SHDPER  in  a  multi-user  environment 
in  approximately  5  milliseconds  per  pixel  of  clock  time.  The  image  is  subject  to 
enormous  variation,  dependent  on  viewing  parameters,  machine  utihztion.  and  control 
parameters.  The  user  of  the  SHDPER  routines  can 

1.  Specify  viewer  location. 

2.  Specify  imaging  geometry. 

3.  Specify  image  resolution. 

4.  Specify  the  terrain  viewed. 

5.  Specify  a  vertical  exaggeration. 

6.  Define  the  position  of  the  sun. 

7.  Enable  local  variation  solar  azimuth 
within  user  specified  boundaries. 

X.  Choose  between  the  Lommcl-Seeliger  law 
and  Lambert’s  law  to  define  terrain  brightness. 

9.  Define  the  density  scaling. 

10.  Specify  program  control  parameters  affecting 
processing  efficiency. 

1 1  Simulate  the  effects  of  atmospheric  haze. 

The  program  generates 


! 


1.  Diagnostic  output. 

2.  A  DSK1  RN-callable  disk  file  of  coded  pixel  densities. 

3.  Low  resolution  line  printer  plots. 


Sample  outputs  demonstrating  these  capabilities  are  shown  in  figures  Cl  through 
Cl  5.  These  images  are  each  composed  ol  700.000  pixel  (700  pixels  by  1000 
columns).  The  disk  tiles  containing  the  image  density  data  were  processed  using  T.TL- 
modified  Vl  kSAlM  Or  Software,  lo  prevent  the  generation  of  overly  dark,  cs- 
thetically  displeasing,  halftone  images,  only  C  of  the  available  density  latitude  ol 
the  VfRSAPl.OT  software  has  been  used.  This  was  done  at  the  expense  of  sum  • 
loss  of  tone  continuity. 

The  images  contained  in  appendix  C  are  largely  self-explanatory.  The  first 
image  may  be  considered  standard.  In  succeeding  images,  the  effect  of  varying  a  single 
parameter  at  a  time  is  demonstrated.  The  effect  of  changing  the  observer's  altitude, 
the  focal  length  of  the  imagery  system,  solar  elevation,  and  solar  azimuth  are  succes¬ 
sive  displayed.  The  effects  of  a  very  light  ground  haze  are  next  portrayed.  In  figure 
Cl  1.  the  effects  of  degrading  resolution  and  displayed,  which  is  a  128  by  170  pixel 
image  that  has  been  magnified  by  bilinear  interpolation,  f  igures  Cl  7  and  Cl  3  are 
views  of  two  different  areas  using  the  same  image  parameters  that  were  used  for  the 
first  image,  f  igure  (14  is  a  view  of  the  same  area  seen  in  the  proceeding  one.  but 
this  image  is  degraded  by  a  moderate  haze.  The  final  image,  figure  Cl  5.  shows 
the  parameters  of  the  first  image,  but  with  the  local  variation  of  solar  azimuth  to 
enhance  terrain  features.  No  perspective  image  was  included  that  illustrated  the  Lom- 
mel-Seeliger  law.  No  satisfactory  parameters  have  been  found  for  such  an  image. 

No  attempt  was  made  in  coding  to  optimize  the  speed  and  efficiency  of 
SHDPTR.  Tests  on  the  TTL  PDP-11/45,  using  the  parameters  of  figure  Cl,  in¬ 
dicate  that  approximately  4.8  milliseconds  of  clock  time  are  required  to  process 
each  pixel.  This  value  may  be  strongly  influenced  by  the  parameters  governing  image 
generation.  In  particular,  the  dependence  of  execution  time  upon  the  sampling 
density  has  been  investigated  for  the  first  image.  The  relationship  is  roughly  linear, 
and.  for  a  l)  (depth  of  view)  of  7.4  map  sheet  inches  (18.8  cm),  the  total  execution 
time  for  this  image  may  be  estimated  by 

T  (clockminutes)  =  40  +  .031  NPTS  (133) 

where  NPTS  is  the  number  of  sample  elevation  data  points  generated  along  the  radial 
elevation  profile.  This  formula  should  not  be  considered  to  be  generally  applicable, 
and  may  not  be  valid  for  NPTS  <  200 


B.  ORTHONORMAL  SHADED  RELIEF  ALGORITHMS.  In  this  section, 
the  implementation  of  the  orthonormal  shaded  relief  in  the  program  SSLPLP  is 
discussed.  From  these  routines,  an  orthonormal  shaded  relief  image  is  produced  that 
is  defined  by  various  input  paramters  from  a  polynomial  terrain  model.  When  the 
routines  are  run  on  the  ETL  POP- 11/45  computer,  one  can  produce  an  image  in 
approximately  3.3  milliseconds  per  pixel.  However,  the  image  is  subject  to  variations 
as  noted  in  the  introduction  to  the  SHDPER  routines. 


The  user  of  the  SSLPLP  routines  can 


1.  Specify  the  area  to  imaged. 

2.  Specify  the  resolution  of  the  image. 

3.  Specify  the  vertical  scaling  factor  for 
the  terrain. 

4.  Specify  the  shading  law  to  he  used  to 
model  the  terrain. 

5.  Specify  the  position  of  the  “sun”. 

6.  Define  a  variation  in  solar  position  to 
highlight  terrain  features. 


From  the  routines  one  can  generate 

1 .  Diagnostic  output. 

2.  A  DSKTRN  -  Callable  disk  file  of 
coded  pixel  densities. 

3.  Low  resolution  line  printer  plots. 


For  sample  outputs  demonstrating  these  capabilities,  see  figures  CIO  through 
C21.  As  with  the  perspective  images,  the  examples  were  generated  from  disk  files 
containing  coded  image  density  data  by  the  ETL-modified  VP.RSAPLOT  software. 
The  exception  of  figure  C20  must  be  noted,  since  this  image  was  generated  by  means 
of  a  half-tone  algorithm  developed  by  R.  Rosenthal  of  ETL.37 


•  •  :t  .  ic.iti  >«i.  I  S.  Ami)  I  iijiimvr  Topographic  Laboratories,  f  ort  Helvoir.  Virginia, 


HO 


The  orthonormal  images  contained  in  figures  CIO  through  C22  should  be 
easy  to  interpret.  Figure  06,  which  might  be  considered  a  “standard.”  is  an  ortho¬ 
normal  view  of  much  of  the  terrain  seen  in  the  first  perspective  image  (the  perspective 
view  is  from  the  left  of  the  orthonormal  image,  looking  across  the  orthonormal  view): 
the  image  contours  600  by  900  pixels.  The  second  orthonormal  image  uses  the 
same  variation  of  solar  azimuth  used  in  the  corresponding  perspective  view  (fieure 
Cl 5).  Figure  Cl 8  is  the  same  image,  upon  which  contour  lines  generated  by  the 
program  SlMCON38  have  been  overlaid  by  HTL-developed  software.39  The  next 
two  images  illustrate  the  relief  contour  option  of  SSLPLP.  with  and  without  local 
variation  of  solar  azimuth  (Figures  C19  and  C20).  These  two  figures  display  a  portion 
of  the  area  of  the  previous  orthonormal  images.  The  final  orthonormal  image  illustrates 
the  use  of  the  Lommel-Seeliger  law  (figure  C21 ).  The  image  is  dark  and  of  very  low 
contrast. 


As  with  the  perspective  software,  no  attempt  was  made  in  coding  to  optimize 
the  speed  and  efficiency  of  SSLPLP.  From  test  runs,  the  execution  time  is  approxi¬ 
mately  3.3  milliseconds  per  pixel  for  images  some  540.000  pixels.  This  time 
shouldn’t  vary  appreciably  with  any  variation  of  parameters,  but  no  extensive  tests 
of  this  have  been  made.* 


*  I  lie  algorithms  decribcd  in  this  report  have  been  substantial!)  improved  since  the  Urst  draft  ol  this  report.  A 
modified  (•KNI)!*I  routine  has  reduced  execution  times  to  an  average  of  4(1  percent  of  the  above  figures.  A 
further  modification,  exploiting  the  redundant  processing  ot  previous  approaches,  lias  reduced  execution  times 
In  an  additional  factor  1)1  ‘s'2.5. 

^  ft 

J.  I.mcaitis,  Moih-linK  and  Contouring  Surfaces  Subject  to  Constraints,  University  of  Virginia,  U.S.  Army 
I  njani’er  I'opoeraphic  Laboratories,  t  on  Bclvolr.  Virginia.  I  TL-CR-74-19.  January  1975.  AD-A010  406 
pp.  164-165. 

39R.  Roscnlh.il.  I  scr's  Cmie  toMIRCh.  l  .S.  Army  I  npincer  topographic  Laboratories,  tort  Belvoir.  Vireinia 
to  be  published. 
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The  problems  associated  with  generating  shaded  relief  images  have  been  system- 
tieallv  investigated.  Also,  the  theory  of  the  formation  of  gray  shade  images  by  optical 

systems  have  been  investigated,  as  has  the  theory  of  the 
V.  DISCUSSION  scattering  of  light  by  solid  surfaces  with  mathematical 
models  having  been  successfully  developed.  I  he  theoretical 
conclusions  of  this  investigation  have  been  used  to  develop  a  series  of  algorithms  lor 
tiic  efficient  generation  of  a  wide  variety  of  shaded  relief  images.  Special  algorithms 
designed  to  address  the  specific  cartographic  problems  of  enhancing  terrain  features, 
modeling  ha/.e.  and  generating  relief  contours  have  also  been  developed.  These  al¬ 
gorithms  have  been  implemented  in  two  sets  of  FORTRAN  routines:  SUDPFR. 
to  generate  shaded  perspective  images:  and  SSLI’LP,  to  generate  orthonormal  shaded 
relief  images  and  relief  contours.  These  programs  have  been  tested  using  a  polynomial 
terrain  data  base  of  the  Cache,  Okla.  The  images  that  have  been  generated  demonstrate 
the  feasibility,  economy,  anti  promise  that  shaded  relief  images  hold  for  future  carto¬ 
graphic  applications  and  for  tailored  specific  user  need  (see  tables  2  —  (>). 


It  is  concluded  that  I.  This  effort  has  resulted  m  versatile  and  clfiticnt 

shaded  relief  software  that  can  now  serve  as  the 
VI  CONCLUSIONS  h  asis  lor  tulure  studies  into  terrain  data  user  special 

requirements  ami  needs  2.  More  work  is  needed 
in  two  mam  areas,  unproved  presentation  and  product  use  studies.  ,V  I  he  improved 
presentation  should  include  color  CRT  and  incorporate  non-liy  psoinetric  terrain  data 


TABLE  2.  SHDPLR  FTN 
Function/Source  Code  Correlation 

Description  of  Program  Function  Compilation  Line  Number 


Overhead 

t  - 

26 

Interactive  Parameter  Entry 

27  - 

44 

Parameter  Computation 

45  - 

84 

Loop  Over  Columns  of  Image 

85  - 

153 

Calculation  of  Radial  Profile  (CALL  ITS) 

Xo  - 

96 

Calculation  of  Densities  of  Current 

Column  of  Pixels 

100  - 

145 

Determination  ((  ALL  GRNDPI .  (  ALL  ALT) 
Object /Image  Point  Correlation/Slope 

110  - 

115 

Density  Computation 

116- 

145 

Write  to  Dok  1  tie 

146  - 

153 

Write  to  1  me  Printer  ( It 'appropriate  > 

154  - 

162 

Overhead 

163  - 

17' 

83 


TABLE  3.  ALSLP.FTN 
Function/Source  Code  Correlation 


Program  Function 

Compilation  Line  Number 

Overhead 

1  -  13 

Read  Coefficients  if  first  call 

14  -  32 

Retrieve  needed  coefficients 

33  -  53 

Calculate  Z 

54  -  67 

Calculate  3Z'/dX,  3Z'/3Y 

68  -  76 

Calculate  W, 

77  -  83 

Calculate  3W'/3X,  aW'/3 Y 

84  -  92 

Calculate  Z,  3Z/8X.  3Z/3 Y 

92  -  98 

Overhead 

1 00  -  111 

TABLE  4.  Outline  of  GRNDPT  Source  Code  Function 
Function  Compilation  Line  Numbers 


Initili/e  Flags.  Overhead 

1 

-  13 

Y(l)  <  Ys  (Y(l  +  1)7 

14 

-  23 

Calculate  1st  iteration  parameters 

24 

-  40 

C  alculate  projection  of  algorithmically 

determined  point 

41 

-  44 

Sot  parameters  for  next  iteration,  if  needed 


45  -  59 


I 


TABLE  5.  The  Angular  Width  of  the  Image 
as  a  Function  of  DIS 

DIS  (”)  Total  Angular  Width  of  Image 

1  22° 

101° 

84° 

72 
62' 

55“ 

49“ 

44° 

40° 

34“ 

27° 


TABLE  6.  SSLPLP.FTN 
Function/Source  Code  Correlation 

Description  of  Function  Compilation  Line  Number 


Overhead 

1  - 

25 

Interactive  Parameter  Entry 

26  - 

55 

Parameter  Computation 

56  - 

97 

Loop  Over  Rows  of  Image 

98  - 

148 

Calculation  of  Slopes  for  row  (CALL  SLPS) 

101  - 

1  10 

Calculation  of  Densities:  Lambert’s  Law 

105  - 

120 

Calculation  of  Densities:  Lommel-Seeliger  Law 

122  - 

139 

Write  Densities  to  Disk  File 

144  - 

147 

Write  to  Line  Printer  (If  appropriate) 

(CALL  LP) 

149  - 

158 

Overhead 

159  - 

169 

6 

8 

10 

12. 

14 

16 

18 

20 

24 

30 


85 


i 


1.  Theoretical  Details.  Lambert’s  law  is  a  scattering  law  that  is  an  idealization 
of  empirical  evidence.  As  noted  in  this  report,  no  good  derviation  of  Lambert’s  law 

exists  that  is  based  on  assumptions  about  the  microscopic 
APPENDIX  A.  structure  of  materials  obeying  it.  This  appendix  presents 
an  inadequate  derivation  of  Lambert’s  law.  This  derivation 
has  two  components,  just  as  Lambert’s  law  may  be  thought  of  as  having  two  com¬ 
ponents: 

1.  The  brightness  of  a  surface  obeying  Lambert’s  law  is  independent 
of  the  direction  of  view. 

2.  The  brightness  of  such  a  surface  is  proportional  to  the  cosine  of  the 
angle  between  the  vector  of  illumination  and  the  normal  to  the 
surface. 


Lite  first  component  of  Lambert’s  law  accurately  describes  the  functional 
dependence  of  brightness  of  self-luminous  objects  as  well  as  that  of  some  reflecting 
bodies.  Consequently,  the  derivation  given  below  first  postulates  a  model  lor  the 
microscopic  structure  of  a  self-luminous  medium,  and  then  shows  that  the  surface 
of  a  body  described  by  this  model  will  he  of  constant  brightness,  regardless  of  the 
orientation  of  the  surface  to  an  observer. 


I  lie  derivation  of  the  second  component  of  Lambert’s  law  is  not  satisfactory 
In  essence,  this  portion  of  the  derivation  is  an  attempt  to  justify  the  third  assumption 
given  below  about  self-luminous  bodies  for  illuminated  reflecting  bodies.  This  attempt 
is  not  successful  in  a  rigorous  mathematical  sense,  but  is  included  lor  completeness  of 
this  appendix.  It  must  be  noted  that  this  attempt  is  the  author’s:  better  ’’derivations" 
may  exist,  hut  they  are  not  known  to  the  author  at  the  time  of  writing. 


f  irst,  the  variables  involved  in  the  derivation  will  be  defined.  As  can  be  seen  in 
figure  A  I .  the  system  modeled  might  be  used  to  measure  the  brightness  of  the  surface 
S.  These  measurements  would  be  based  on  the  determination  of  the  total  flux  of 
radiant  energy  incident  upon  the  light-sensitive  area.  of  a  photodetector.  This 
detector  has  a  light  acceptance  cone  of  width  dw.  the  center  of  which  is  inclined  at 
an  angle  0  to  the  normal  to  the  surface  S.  The  distance  of  the  detector  from  the 
surface  is  R.  measured  along  a  ray  within  the  detector  acceptance  cone,  and  the 
corresponding  distance  to  sonic  volume  clement  dV  is  r,  located  a  distance  /.  = 
(r  -  R)cos0  below  the  surface. 
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A  derivation  such  as  this  must  be  motivated  by  empirical  evidence.  If  self- 
luminous  bodies  obey  the  first  aspect  of  Lambert’s  law  then  the  body  with  surface 
S  will  be  first  modeled  as  a  homogeneous,  self-luminous  medium.  These  assumptions 
can  be  easily  modified  to  treat  non-radiant  bodies  that  are  accurately  modeled  by 
Lambert’s  law,  as  will  be  discussed.  The  medium  presently  being  considered  is  char¬ 
acterized  by  three  features: 


1.  Lach  infinitesimal  volume  element  radiates  equally  in  all  directions. 

2.  A  ray  of  light  has  a  mean  free  path  of  length  before  being  absorbed 
or  re-scattered,  and  thus  lost  to  a  given  beam. 

3.  All  volume  elements  are  equally  luminous,  with  luminosity  per  volume 

I 

• ) 


It  is  a  well  known  result  of  statistical  mechanics  that  a  beam  of  light  char¬ 
acterized  by  flux  F  will,  in  such  a  medium,  be  attenuated  by  a  factor  of  dF  in 
traversing  a  distance  dx.  such  that 

dF  =  -F<  1  V I  dx  (134) 

Finis,  a  beam  of  initial  intensity  F\,  will  be  of  intensity  Fix)  after  traversing  a 
distance  \  such  that 

\ 

I  f  dl  -  r,  o'x/T  (135) 


(  nitsidet  now  a  volume  element  a  distance  z  beneath  the  surface.  A  light 
i  iv  emitted  from  this  element  towards  the  detector  will  traverse  a  path  of  length 
\  1 1  -  l<  l  /  seed  before  emerging  from  the  surface.  Now.  F(l  =  l(.  dV  d£2. 
w  l  ere  m  this  ease.  I  is  the  luminosity  per  unit  volume.  dV  is  the  differential  volume 
eh  net. t  and  dS2  is  the  solid  angle  subtended  by  (he  detector  at  the  volume  element. 
Ileik.  the  differential  flux  incident  upon  the  detector  from  this  volume  element 

w  I  I  he 


dl  - 


I  dV  dSJ  c  "  -  K  ’  7- 


(13b) 


To  find  the  total  flux  of  radiant  energy  upon  the  detector,  one  must  integrate 
all  the  volume  elements  within  the  detector  acceptance  cone  dW.  Hence. 

F  =  dl  =  /  1()  e'(r  ~  r,/t  dV  dft  (137) 

r  =  R 

Now.  d£2  =  a/ r2,  and  dV  =  r2  JW  dr.  Hence. 

F  =  J  Io  (a/r2  )r2  dWe'"  ~  K,r  dr 

r  =  R 

=  j  lo  adWe',r  -  R),t  dr 
i  =  R 

=  I  adWr  ( I  3  X ) 

O 

Thus,  the  tlux  received  by  a  detector  is  independent  of  the  inclination  of  the  detector 
to  the  surface  (i.e.  independent  of  (1).  if  all  else  is  held  constant.  The  apparent 
surface  is  a  function  of  angle 

cl  A  =  R2  dW 'cost  l) )  (13b) 

The  solid  angle  that  the  light  subtends  is  approximately  constant: 

dS2  =  a  r2  =  a  R2  (140) 

This  is  a  valid  approximation,  if  K  ?■  r.  since  all  light  emerging  from  the  surface 
effectively  emerged  from  a  radius  r  (R  +  IO7)  %  R.  This  follows  from  the  ex¬ 
ponential  decay  of  the  emerging  tlux  less  than  1  of  the  emerging  light  traverses 
a  distance  of  more  than  l()r  Having  made  this  appioximation.  one  can  keep  the 
brightness  of  the  surface  constant: 


If  =  - 

d A  cos II  dS2 


-  I  |  R2  ( cl W  cosOlcosdtn  R 2  )  | 

=  I  (a  d\V  I 

=  I „r  (141) 
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I  he  brightness  oi  a  surface  obeying  lainbert's  law  is  defined  as  being  independent 
of  the  direction  from  which  it  is  viewed,  which  is  the  case  of  the  surface  of  the  body 
,iust  modeled.  1  lie  lirst  aspect  ol  Lambert’s  law  has  thus  been  derived  from  micro¬ 
scopic  considerations  for  a  self-luminous  body,  in  a  form  relating  the  brightness  of  the 
surface  ol  the  body  to  the  flux  incident  upon  a  photodetector. 


To  complete  a  derivation  of  Lambert’s  law.  one  must  justify  the  third  assump¬ 
tion  for  reflecting  bodies.  This  can  only  be  done  by  making  an  additional  assumption 
about  the  microscopic  structure  of  such  bodies.  In  particular,  reflecting  bodies  that 
obey  Lambert's  law  are  composed  of  miscroscopic  particles,  each  of  which  is 

1 .  Non-absorbing. 

2.  Defuses  light  uniformly  in  all  directions. 


It  must  be  shown  that  these  assumptions  lead  to  the  following  conclusions: 
In  a  semi-infinite  body  which  may  be  modeled  by  these  assumptions.  (1  )  the  intensity 
of  the  light  with  the  body  is  everywhere  constant,  and  (2)  the  intensity  of  the  light 
is  proportional  to  the  cosine  of  the  angle  incidence  of  the  incoming  light. 


first,  examine  a  differential  volume  element  dV  a  depth  7  below  the  surface 
•  see  figure  A1 ).  By  showing  that  the  net  flux  upon  this  volume  element  is  independent 
of  7.  one  assumption  can  be  justified.  Considerations  of  flux  out  (which,  since  no 
absorbtion  is  assumed,  must  equal  flux  in),  will  define  the  vaitie  of  the  constant. 


The  flux  upon  the  volume  element  can  be  defined  as  an  integral  with  two  com¬ 
ponents,  the  flux  of  the  incident  light  reaching  volume  element  from  the  surface, 
and  the  flux  scattered  from  the  rest  of  the  body.  This  incident  light  is  assured  to  be 
i>1  intensity  I-  ,  above  the  surface  and  incident  at  an  angle  to  the  normal  to  tiie  stir- 
lace.  b\  analysis  similar  to  that  above,  the  fraction  of  the  incident  light  reaching  dV 
will  'v 

I  .  ,  =--  ttL  a 2  0-Zsc-c,7t  ( ,  4  2 ) 

i  oillo  n  ' 

where  it  has  been  assumed  that  the  volume  element  is  spherical  and  has  a  radius 
A,  tdV  4i  3  A',  cl  A  =  7r  A- ).  Of  this,  a  fraction  A/3x  will  be  scattered.  I'lius. 
f,,,, ,  ot  this  fraction  is 
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|.  A!  e-/-c ci/T 


I  143) 
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Ih o  contribution  from  scattered  light  from  the  rest  of  the  body  must  now  be  con¬ 
sidered.  Here  the  differential  contribution  for  a  volume  element  dV'  of  luminous 
intensity  1, ,  ( assured  constant,  we  must  find  l()  in  terms  of  E,,  and  /)  at  a  distance 
i  will  Ire 


dl\ 


n  ii  t 


7T  A* 


e  '  r  dV' 


(144) 


where  n  A’/r  represents  the  solid  angle  subtended  by  dV  at  a.  As  above,  a  frac¬ 
tion  ol  A  /At  of  this  flux  will  be  scattered.  Thus. 


dl- 


ii  II  I 


7 r  A* 


3rr- 


e-,;MV' 


(  1  45  ) 


I  Ins  must  be  integrated  over  the  volume  of  the  body.  Since  the  surface  delimates 
the  body .  the  limits  ol  integration  are: 


2  7T 


1  2  .  /  /  / 

i  \.t  if  a  It  ■)  5  2 


IT  LY 


er  T  dV ' 


/ .  f  f 


I  7T  .  7T  '  ’  77  A ' 

-n  r  -  I - e  r  T  dV'i 


where,  m  .pherical  polar  coordinates. 


dV'  =  r'  sind  dr  dd  d^ 


If 


flic  lirst  term  can  be  readiiy  integrated  hy  standard  tecl  imp: >  I  lie  second 
•..moot  i  c  evahiated  in  closed  torm:  hence,  approximations  hum  be  resorted  to  if  it 
i>  to  be  waluated.  Ibis  alone  precludes  the  success  ot  the  approach,  siikc  in  tit 
absenu  ot  a  closed  lonn  representation,  it  cannot  be  shown  that  the  result  '.sill  contain 
a  teim  neiMtmg  the  /  depeiulence  ot  F,  Stric  t  limits  an  be  p!  iced  on  tlie  / 
dependence  of  both  I-',  and  the  non  mtegrable  term  of  lb  but  t'-ese  arc-  not  ad¬ 
equate  I 'n  y  arc'  inconsistent  with  the  assumptions  necessary  lor  the  demotion  ol  the 
Ids:  "aspect  it  I  anibi  it's  lass.  <  onsei|ncntl\.  this  "ders  latum"  mii'i  be1  con¬ 

sidered  unsuc  cessl  ul 
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2.  The  Lommel-Seeliger  Law.  The  Lommel-Seeliger  law  is  a  scattering  law 
derived  from  realistic  physical  assumptions  about  the  microscopic  structure  of  a 
scattering  medium,  f  rom  this  law.  accurate  predictions  can  be  made  about  the  light¬ 
scattering  behavior  of  many  natural  surfaces.  In  particular,  a  scattering  surface  is 
assumed  to  be  apparent  and  that  it  is  actually  the  surface  of  a  material  body  composed 
of  many  small,  uniform  scattering  bodies.  It  is  also  assumed  that  the  interaction  of 
light  with  the  body  is  amenable  to  statistical  analysis. 

The  present  derivation  of  the  Lommel-Seeliger  law  is  an  extension  of  the  treat¬ 
ment  given  by  Hapke.40  Since  the  derivation  assumptions  about  the  nature  of  the 
scattering  body  are.  Lxplicit,  the  approach  is  representative  of  a  large  class  of  similar 
theoretical  laws  and  is  included  as  a  detailed  examination  of  one  of  these  laws.  As 
noted  in  the  beginning  of  this  section,  the  Lommel-Seeliger  law  was  selected  for  the 
simplicity  of  its  final  mathamatical  form  and  theoretical  basis  and  for  its  ability  to 
predict  accurately  the  light-scattering  properties  of  a  variety  of  surfaces. 


The  following  variables  are  used  in  the  discussion  that  follows  (see  figure  A1  ). 


n 

a 

7 

b 


dL2 

a 

R 

dW 

K 

it  a) 


Definition  of  Variables 

mean  number  of  scattering  objects  per  unit  volume: 
average  cross  section  of  a  scattering  object: 
mean  free  path  of  a  beam  of  light  rays  in  the  medium.  We 
shall  assume  that  7  =  1/no  is  always  a  good  approximation, 
total  reflectivity  of  a  scattering  object.  Hence.  M  -  hi  is 
equivalent  to  the  fraction  of  light  incident  on  a  scattering 
object  which  is  absorbed. 

the  angle  of  the  incident  light  with  respect  to  the  normal 
to  the  apparent  surface: 

angle  between  the  rays  of  incidence  and  reflection: 

angle  of  the  ray  reflected  towards  the  detector  with  the 

normal  to  the  apparent  surface; 

solid  angle  subtended  by  the  detector  at  the  surface: 

light-sensitive  area  of  the  detector: 

distance  of  the  detector  from  the  apparent  surface,  measured 

along  the  path  of  the  reflected  ray  <dS2  —  a/R: ); 

solid  angle  of  the  acceptance  cone  of  the  detector; 

incident  intensity  ( flux  of  radiant  energy  per  unit  area 

normal  to  the  direction  of  incidence):  and 

scattering  law  of  an  individual  object.  Of  the  light  reflected, 

£(a)  is  that  fraction  of  the  incident  light  from  a  unit 

solid  angle  about  the  source  retlected  into  the  unit  solid 

angle  about  the  direction  of  observation.  i(u)  is  normalized 

so  that  f  V(tt)  dL2  =  1. 

J4  n 


4,,H.  Iliipkc.  ./.  c.'ivi /iliys.  Res.  68(196.1).  p.4575. 
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Consider  the  fraction  of  radiation  incident  upon  the  apparent  surface  reaching 
a  volume  element  dV  =  r2  dW  at  some  distance  Z  =  (r  -  R)  cosO  below  the 
apparent  surface.  If  the  radiation  is  incident  at  an  angle  /  to  the  normal  to  the  ap¬ 
parent  surface,  then  the  distance  traversed  by  the  ray  will  be 

Z'  =  Z/cos /  =  Z  Sec i  (148) 


The  fractional  change  in  the  flux  incident  upon  an  infinitesimal  volume  element 
of  the  scattering  material  of  thickness  dZ'  (measured  along  the  path  of  the  incident 
ray),  owing  to  scattering  or  absorption  within  the  differential  volume  element,  will 
be 


d E£  =  -E*  no  dZ' 


(149) 


Hence, 


E (Z' )  = 


en  az' 


(150) 


and 


E  (Z)  =  E()  e"nOZ  Scc'  =  Eo  c-(Z  Sec'>/r  (151) 


The  light  reaching  the  detector  is  the  light  within  the  detector  acceptance 
cone,  dW.  This  light  may  be  interpreted  as  being  reflected  from  the  apparent  surface 
area  dA  =  R2dW/cos0. 


Consider  the  volume  element  dV  a  distance  Z  below  the  apparent  surface. 
As  above,  the  light  intensity  at  the  dV  will  be 

E  (Z)  =  En  e-,z  Scc/)/r  (152) 

Now.  determine  the  differential  flux  incident  upon  the  detector  owing  to  scattering 
within  this  volume  element.  Eirst,  not  all  light  incident  upon  the  volume  element  will 
be  reflected.  Instead,  only  the  light  incident  upon  the  surface  area  dS  =  no  dV  of 
the  scatterers  within  the  volume  will  be  available  for  reflection.  Of  this,  only  a  fraction 
b  will  be  reflected.  The  detector  is  located  at  an  angle  a  to  the  radiation  incident 
on  the  scatters:  £(<0  of  the  total  reflected  radiation  will  fall  within  a  unit  solid 

angle  around  the  detector.  However,  the  detector  doesn’t  subtend  a  unit  solid  angle. 
It  subtends  a  fraction  dU  =  a/r2  of  a  unit  solid  angle.  The  product  of  these  factors 
represents  the  flux  incident  upon  the  detector: 
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df  I'„  (a/r-  >  s'"''  T  dV 


Assn  mi-  iIkiI  tin-  light  reflected  towards  I  he  detector  will  Ik-  further  attenuated 
by  a  I. a  lor  ol  e\p|(— /  Si-i (I)  >|  IK-I'ori-  emerging  irnm  iIk-  apparent  surface.  since 
it  must  agam  pass  through  the  scattering  hoily.  Hence,  the  tins  of  radiant  energy 
reflected  trom  the  volume  ckmcnt  ilV  and  emerging  from  the  surlace  will  he  the 
product  o!  epilation  t  i  '  i  and  the  new  attenuation  factor  I  tins. 

d!  -  I  s,  tu,r: )  h£<olm>  e'1'-  S“',T  e  l/  T  d\ 

-  I  lujg  h  y~l((v  I  e\nl-(  r  -R )  (  I  +  cost? /cos  it  r|  drdVV  (154) 
where  tile  identities  /  -  (r  -  RkosO  and  dV  =  r*  dW  dr  has  been  used. 


Thus,  the  total  tins  ol  radiant  energy  falling  upon  the  detector  within  the 
detector  acceptance  cone  dW  will  be  found  by  integrating  the  differential  flux  from 
each  dV  -  r:  d\V  dr  within  the  acceptance  cone  dW ;  i.e.  by  integrating  over 
all  r  gieutci  than  R: 

I  --  J  dl 

1  l< 

J  I  ,  in'  ub  ^(a)dVVe|,:  ~  K  »  "  +  >  >.s0,\  ..o  i  /  r  i  dr 

K 

~  l— —  )  (1  no  a  b  Y' (o-)d\Vl 

I  +  V  os II  COS / 


I  a  b  V«, )  d\V 

I  i  .  OS  (I  COs  / 


(  I  S  s  ) 


\s  mentioned  before  tins  report  is  not  interested  in  the  total  incident  flux  in 
photometric  applications,  such  as  photometry,  but  is  interested  in  the  photometric 
brightness.  Recallin'. -  the  basic  photometric  identity  and  invoking  the  geometric  law 
of  conservation  of  cm- rev  .  one  has 
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15  =  I  UlAcosOdS*) 

=  1  •  |  d  A  cost)  ( « ''  K  •  )  | 

f,  ab  £<u)d\V 
I  +  cosW/cos/ 

I  ab  y (a) 

_ O _ * — * _ 

I  +  COSfl/cOS/ 

1  „ h  T,Uy) 

I  +  cosWVos; 


R1  1 

a 

dA  cos II 

dA  cos 0 

R-  1 

K- 

a  dA  cos 0 

(  I  5(>  l 


I  his  is  the  form  of  the  I.oinmel-Seeligcr  scattering  l;iw  of  interest  to  us. 


.5.  Im  age  I  lenient  Illumination  l.et  us  repeal  the  problem  addressed  bv 
this  report;  that  is  the  determination  ot  the  densities  of  each  of  an  arrav  of  image 
elements  of  a  elearlv  defined  optieal  system  for  the  speeified  lighting  eoiidiltons  ol 
i  given  terrain  model. 


The  first  problem  to  he  considered  is  what  each  image  element  is  to  represent. 
Ideally;  each  element  will  leproduee  the  average  illumination  of  that  image  element. 
Mathematically .  this  is  a  continuous  process,  defined  by  the  integral  ol  the  illumination 
at  each  point  of  the  image  element,  divided  by  the  finite  area  ot  this  element  I  litis, 
the  average  illumination  is  given  by 

/  df 
-  A 


where  A  is  the  area  ol  the  image  element,  and  df  is  the  illumination  of  a  differential 
image  area  element  dS‘.  Recalling  equation  (4I|  and  remembering  that  there  is  a  1  I 
mapping  ol  the  dillerential  surlaee  area  ol  the  object  into  the  corresponding  element 
dSf  one  sees  that  equal  ion  (4.5)  can  be  written  as 
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<E>  * 


a  B  cosO  cosu;  cl 
Mo2  cosa  cos0 

+A 


(158) 


where  S'  is  the  corresponding  area  of  the  object. 


It  is  this  continuous  integral  that  we  must  approximate  by  a  discrete  sum. 
If  we  let  E,  represent  the  illumination  of  the  «,h  point  of  the  image  element  under 
consideration,  then 


<  E  > 


(159) 


If  the  Ith  point  of  the  image  element  is  defined  in  terms  of  a  local  (x.  y)  coordinate 
system  by  (X,  Y ,),  and  the  corresponding  point  of  the  objects  surface  by  (r j;,  £,)  in 
terms  of  some  (rj,  £)  coordinate  system  on  the  surface  of  the  object,  then  B  = 
and  particular  points  can  be  defined  as  B,.  Similarly,  0  and  y>  can  be  labeled  by 
Oj  and  y>,-.  Then 


n  B,  a  cosi pj  cos 0t 
e  Mo2  COSQ'  COS0 

<  E  >  Sfc  — - -  (160) 

n 

I  or  realistic  imaging  systems,  one  may  assume  that  0  will  not  vary  appreciably  over 
the  image  element.  A  more  dubious  assumption,  although  well-justified  for  image 
elements  of  sufficiently  small  areas,  is  that  B,  and  will  also  vary  by  a  negligible 
amount  over  the  area  of  interest.  Thus,  we  have 


a  B,  cos tf/  cos 0: 

<E>  %  - '■ - - - —  (161) 

Mo2  cosa  cos (S 

for  some  typical  B(  and  corresponding  d,-  and  y?,  within  the  area  of  interest.  Ideally, 
this  j  oin t  should  be  at  or  near  the  center  of  our  image  element,  but  in  light  of  the 
approximations  introduced  thus  far.  this  is  not  essential. 


Finally,  the  approximation  is  introduced  so  that  the  field  of  view  of  the  imaging 
system  is  small,  and  that  for  all  elements  of  the  image,  0,  XO.  However,  it  is  an  ap¬ 
proximation  only  for  the  perspective  projection;  it  is  exact  for  the  orthonormal  projec¬ 
tion.  Having  introduced  this  approximation  and  noting  that 


cosif  ^  cosa  cos(3 


(162) 


one  has  the  formula  for  the  “average”  illumination  <  Ej  >  of  the  jth  area  element 
of  the  image,  which  contains  a  typical  point  with  a  corresponding  point  on  the  surface 
of  the  object  characterized  by  a  brightness  Br 


<Ei> 


a  Bj 
Mo2 


a  B; 


(163) 


This  approximation  is  introduced  for  two  reasons.  First,  the  number  of  cal¬ 
culations  will  be  significantly  reduced  that  need  to  be  made  to  determine  the  densities 
of  a  synthetic  gray  shade  perspective  image.  Second,  the  final  perspective 
should  be  composed  of  image  elements  with  densities  that  are  well  defined  functions 
of  the  terrain  and  lighting  and  that  are  not  dependent  on  the  arbitrary  viewing  para¬ 
meter.  In  essence,  the  approximations  introduced  remove  the  vignetting  effects  that 
the  rigorous  equation  accurately  models.  These  effects  would  probably  detract  from 
the  qualitative  appearance  of  the  image. 
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1.  Software  Guide.  I  his  appendix  is  a  user’s  guide  to  the  1  I'L  shaded 
relief  software  developed  during  the  course  of  the  work  described  in  this  report. 

l  he  software  was  developed  in  FOR  I  RAN  on  a  PDF— 1  1/45 
APPFNDIX  B.  minicomputer  under  an  RSX—  1 1/D  operating  system.  The 
software  is  currently  running  on  the  I  I  I.  PDP-I  1/45  under 
an  RSX- 1  I  M  operating  system.  Familiarity  with  the  body  of  this  report  is  desirable 
before  reading  this  appendix,  and  limited  familiarity  with  FORTRAN  and  the  RSX- 
1  1/M  operating  sy stem  is  assumed. 


This  appendix  present  the  information  necessary  to  use  the  three  sets  of  routines 
developed.  First,  the  perspective  shaded  relief  routine  SI1DP1.R.ISK  procedures 
that  are  necessary  to  create  the  executable  file  from  the  FORTRAN  source  files 
will  be  examined,  explaining  the  input  parameters  and  detailing  the  format  of  the 
polynomial  elevation  data  base,  the  output  line  printer  graphic,  and  the  coded-density 
disk  file.  The  orthonormal  shaded  relief  routine,  SSLPLP.TSK  will  be  examined. 
Finally,  the  program  PDSKTP  will  be  reviewed.  The  program  reads  the  coded  density 
data  from  the  disk  file  created  by  either  SSLPLP  ora  S11DPFR  and  writes  the  data 
to  a  nine-track  tape  to  generate  high  resolution  images,  using  either  the  D1COMFD 
or  1  HR  gray  shade  recording  devices  available  at  F.TL. 


2.  Perspective  Routines.  In  this  section,  the  use  of  the  true-perspective 
shaded  relief  routines  SIIDPFR  will  be  described.  Running  on  a  PDP-11/45  mini¬ 
computer.  SIIDPHR  can  created  a  shaded  relief  perspective  image  in  a  multi-user 
.  nvironment  in  a  time  on  the  order  of  5  milliseconds  per  pixel  real  time.  This  figure  is 
'Ubiect  to  enormous  variation,  dependent  on  viewing  parameters,  machine  use.  and 
control  parameters.  The  user  of  the  SUDPFR  routines  can 


1. 

2 

i. 

4. 

5. 

6. 
7. 

X. 

9. 

10. 

I  I. 


Specify  viewer  location. 

Specify  imaging  geometry. 

Specify  image  resolution. 

Specify  the  terrain  viewed. 

Specify  a  vertical  exaggeration. 

Define  tiie  position  of  the  sun. 

I  nahle  a  variable  sun  position  within  user- 
specified  boundaries. 

Choose  between  the  I.ominel-Seeliger  law  and 
Lambert's  law  to  define  terrain  brightness. 
Define  the  density  scaling. 

Specify  program  control  parameters  affecting 
processing  efficiency. 

Simulate  the  effects  ol  atmospheric  ha/e 


i 
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The  program  generates 


1.  Diagnostic  output. 

2.  A  DSKTRN-callable  disk  file  of  coded 
pixel  densities. 

3.  Low  resolution  line  printer  plots. 


a.  Building  the  Task:  SHDPLR.TSK.  In  this  section,  the  procedures 
are  examined  for  creating  the  file  SHDPLR.TSK  to  be  executed  on  an  RSX-ll/M 
operating  system.  The  user  should  know  how  to  create  files  of  the  source  code,  as 
listed  in  appendix  B.  as  well  as  the  FORTRAN-callable  1/0  routine  DSKTRN. 

(1  )  FORTRAN  Source  Code  File.  In  this  section,  the  FORTRAN 
source  code  files  needed  to  create  the  task  SHDPFR.  TSK  are  examined.  First,  the 
algorithmic  function  of  each  of  these  files  will  be  reviewed,  and  where  appropriate, 
sufficient  information  for  specific  minor  modifications  will  be  presented. 

(a  )  SHDPFR. FTN.  The  program  SHDPER.FTN  is  the  main 
routine  of  the  shaded  perspective  routines.  An  understanding  of  the  basic  structure 
of  the  program  can  be  qui'-.kiy  gained  by  examining  the  listing  and  comparing  it  with 
the  functional  outline  of  the  FORTRAN  code  presented  in  table  2. 

There  are  two  modifications  of  the  file  that  the  users  might  wish 
to  make;  (1)  to  alter  the  size  of  the  maximum  image  that  can  be  produced,  and 
(2)  to  change  the  disk  file  created  to  another  device. 

To  make  the  first  modification,  let  M  represent  the  desired  max¬ 
imum  number  of  pixels  per  column  of  the  image,  and  let  N  represent  the  maximum 
number  of  columns  of  pixels  in  the  image.  Thus,  M'  and  N'  are  the  corresponding 
least  multiple  of  256  greater  than  or  equal  to  M/2  and  N.  respectively.  Hence, 
the  byte  anag  SHADF  should  be  re-derninsioned 

LOGICAL*!  SHADF  (M) 
and  the  two  calls  to  DSKFIL  should  be  altered  as 

100  CALL  DSKFIL  (2,  -1,'  DB:,  LPPFR.DAT’.DUM,  M,  N) 

CALL  DSKFIL  (2,  -2.’  DBF.,  LPPFR.DAT’.DUM,  M,  N) 

The  dimensions  of  the  Y-array  may  be  altered  with  that  of  SHADE. 
The  disk  (lie  name,  or  the  device  it  is  to  be  written  on,  can  be  -nanged  by  altering  the 
appropriate  strings  within  the  apostraphes  of  the  two  calls  to  DSKFIL. 
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(b  )  FTS.  KTN.  The  PTS.FTN  file  contains  the  subroutine 
PTS.  which  determines  the  coordinates  at  which  elevation  data  points  are  to  be 
accessed.  The  subroutine  is  compatible  witli  the  SHDPER  calling  routine  and  the 
altitude-  and  slope-computing  subroutine  ALT  found  in  file  ALSLP.FTN.  Because 
it  is  simple,  no  outline  of  function  will  be  given  here. 

The  calling  statement  is 

CALL  PTS  (XI.  Yl.  X2,  Y2.  NPTS.  B.  DLN.  IASCD) 


where 


(XI.  Yl) 
1X2,  Y2) 

NPTS 

B 

DLN 

IASCD 


are  the  inapsheet  coordinates  of  the  observer’s  location 
are  the  coordinates  of  the  other  end  point  of  the  radial 
of  interest. 

is  the  number  of  elevation  data  points  to  be  generated 
along  this  profile  and  returned  to  the  calling  routine, 
is  the  array  in  which  the  elevation  data  points  are  to 
be  stored. 

is.  effectively,  a  dummy  parameter  for  this  application, 
should  be  set  to  0  to  minimize  execution  time. 


One  COMMON  block  should  be  defined  in  the  calling  routine 
(as  it  is  in  SHDPER): 


COMMON  BOUNDS 'XMAXB./YMAXB.  XMINB.  YMINB.  LiLHVB 


where 


(XMINB,  YMINB) 

( XMAXB.  YMAXB ) 
ELEVB 


are  the  inapsheet  coordinates  of  the  origin  of  the 
area  modeled  by  the  polynomial  terrain  data  base, 
are  the  maximum  inapsheet  coordinates  of  the  area 
modeled  by  the  polynomial  data  base, 
is  the  minimum  elevation  of  the  polynomial  data 
base. 


These  variables  arc  appropriately  defined  in  the  overhead  portion  of  SHDPER.  I  TN. 
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(c)  ALSLP.FTN.  This  file  contains  subroutine  ALT.  This 
subroutine  accepts  the  X  and  Y  mapsheet  coordinates  of  the  current  point  of 
interest  and  an  integer  flag  IASCD.  When  IASCD  =  0.  only  the  elevation  of  the 
point  of  interest  will  be  returned.  When  IASCD  is  set  to  1  in  the  calling  routine, 
both  elevation  and  the  partial  derivatives  (dZ/dX  and  9Z/9Y)  at  the  point  of  interest 
will  be  returned. 


The  subroutine  uses  a  polynomial  terrain  data  base  and  currently 
is  structured  to  read  the  coefficients  of  the  upper  one-third  the  Cache.  Okla  mapsheet 
into  the  arrays  COF.F1  (90,40)  and  COEF2  (90,40.3).  By  bringing  these  coef¬ 
ficients  into  core,  execution  time  is  considerably  reduced. 


With  this  implementation,  only  data  for  points  within  the  region 
modeled  by  the  coefficients  brought  into  core  can  be  evaluated.  The  subroutine 
avoids  inadvertent  attempts  to  access  non-modeled  terrain  areas  by  checking  to  see 
that  the  point  of  interest  is  within  the  region  modeled.  Points  outside  of  this  region 
will  have  their  z  values  set  to  u  nominal  elevation,  and  the  partial  derivatives  will  be 
set  to  0. 


In  table  3.  the  correlation  is  outlined  between  the  function  and 
the  FORTRAN  compilation  line  numbers  used  in  the  listing  in  appendix  B. 


The  calling  statement  is 

CALL  ALT  (X.  Y.  Z,  SN.  AZ,  BZ.  IASCD) 


where 


(X.  Y) 
Z 

SN 

AZ.  BZ 


are  the  coordinates  of  the  point  of  interest, 
will  be  the  elevation  of  that  data  point, 
is  a  dummy  parameter. 

are  respectively  dZ/dX  and  9Z/9Y;  IASCD  should 
not  be  equal  to  zero  if  AZ  and  BZ  are  desired. 


Two  COMMON  Blocks  must  be  defined  in  the  main  routine. 
COMMON/BOUNDS  XMAXB.  YMAXB.  YM INB,  HLLVB 


as  in 


ALSLP.  FTN  and  COMMON/NFW  MRDR 
where  MRDR  should  be  next  to  1  in  the  main  routine. 
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(d  )  GRNDPT. FTN.  This  file  contains  the  image-object  point 
correlation  subroutine  GRNDPT.  The  subroutine  accepts  the  number  of  the  current 
pixel  of  interest  in  the  column  of  pixels  being  processed  at  the  time  of  the  call  to  the 
subroutine.  On  the  basis  of  an  array  of  elevation  data  points  along  the  radial  corres¬ 
ponding  to  the  current  column  of  pixels  and  the  parameters  defining  the  perspective 
view  being  generated,  the  subroutine  finds  a  point  along  the  radial,  whose  projection 
lies  within  a  specified  distance  of  the  center  of  the  pixel  of  interest. 

The  algorithm  used  (described  in  section  IV,  A)  is  iterative  and 
makes  several  assumptions  about  the  nature  of  the  terrain  modeled.  Foremost  among 
these  is  the  assumption  of  continuity,  which  is  violated  at  the  “edge”  of  the  area 
modeled  by  the  coefficients  in  core.  Hence,  those  views  of  the  terrain  in  which  the 
“cliff”  would  be  visible  are  not  amenable  to  analysis  by  the  SP  (or  other)  interative 
routine.  The  subroutine  GRNDPT  detects  this  condition,  issues  diagnostic  error 
messages,  and  sets  NFLAG  to  10.  which  halts  the  execution  of  SHDPFR. 

In  table  4,  the  correlation  is  outlined  between  the  function  of 
the  source  code  and  the  line  numbers  of  the  F'ORTRAN  compilation  of  GRNDPT 
in  appendix  ('.  In  the  table  the  notation  found  in  section  IV.  A.  is  used. 

The  calling  statement  is 

GRNDPT  (J.  V,  NFLAG.  XI.  VI.  I.  YMAX.  IASCD.  AZ.  BZ.  Z) 

The  argument  and  return  values  are  as  follows: 

J  is  the  index  of  the  pixel  for  which  we  are  seeking 
a  corresponding  point  on  the  ground.  J  runs  from 
I  at  the  bottom  of  the  screen  to  NPIX  at  the  top. 
where  NPIX  is  the  number  of  pixels  in  each  column. 

Y  is  the  array  containing  the  screen  Y-values  of  the 
projections  of  the  points  comprising  the  radial  of 
elevation  data. 

NF  LAG  is  a  flag  returned  by  GRNDPT  to  the  calling  routine. 

NFLAG  is  1.  if  a  successful  correlation  has  been 
made,  and  it  is  set  to  10  if  an  error  condition  has 
been  detected. 

(XI,  Yl)  are  the  coordinates  of  the  point  on  the  ground  whose 
projection  lies  within  the  pixel  of  interest. 

1  is  an  index  pointing  to  the  last  Y  array  position  with 
a  value  less  than  the  last  pixel  center. 

YMAX  is  the  maximum  Y  value  in  the  Y  array  in  the  range 
Y(  1 )  to  Ytl).  Any  Y  array  value  greater  than 
YMAX  is  assumed  to  he  visible. 

IASCD  is  the  flag  directing  ALT  to  perform  either  altitude 
and  slope,  or  just  altitude  computations.  It  should 
he  set  to  0  before  calling  GRNDPT. 


Two  COMMON  Blocks  must  be  defined  in  the  calling  routine: 


and 


COMMON  AAROH/Y,  YO.  THETAP.  IX  NPTS.  I)X.  II. 
YSE,  I.  SOL.  TOL.  THETA.  YIST 

COMMON/HCiRAA/7. 1 .  7.2.  C  STP.  SSTP.  CST.  SST 


w  lie  re 


X,  YO 


THETAP 

THETA 


YIST 

OX 

H 

VSF 

TOL 

SCL 

D.DIS.NPTS 


are  the  SHDPER  user  specified  “coordinates 
of  position”  (see  SHDPER  input  Parameters 
below). 

is  the  absolute  azimuth  in  radians  (aeronautical 
convention)  of  the  current  radial, 
is  the  azimuth,  in  radians  (aeronautical  con¬ 
vention)  relative  to  the  principal  direction 
of  view. 

is  the  elevation  of  the  point  (X,  YO). 
is  the  increment  between  pixel  centers  (De¬ 
fined  as  1 4. 5/'< number  of  radials  in  SHDPER). 
is  the  elevation  of  the  observer  above  ground 
level  (in  meters), 
is  the  vertical  sealing  factor, 
is  the  user  specified  tolerance, 
is  the  ratio  of  inches  on  the  image  plane  to 
meters  on  the  ground. 

are  as  specified  in  SHDPER  Input  Parameters. 


(e  )  SXSY.I  TN.  This  file  contains  the  variable  sun  angle  sub¬ 
routine  SXSY.  I  lie  subroutine  varies  the  azimuthal  position  of  the  sun  to  highlight 
terrain  features,  within  user-specified  tolerances.  Since  the  subroutine  is  well  doc¬ 
umented  internally  with  respect  to  the  functions  outlined  in  section  111,  E.  no  table 
of  source  code  function  is  given. 

The  calling  sequence  is 

CALL  SXSY  (SX.  SY.  AZ.  BZ) 
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. . ..  a  *  i,,-.  veita.AA. 


where 


SX,  SY  will  be  the  X-  jnd  Y--  components  of  the 
illumination  vector  to  he  used  for  the  current 
pixel. 

AZ,  BZ  are  the  partial  derivations  dZ/dX  and  <)Z/r)Y. 

defining  the  normal  at  the  point  of  the  surface 
of  interest. 

One  COMMON  Block  must  be  defined: 

C'OMMON/SEXY/DELTAG,  COS  EL.  1VSUN,  ANG.  Cl,  C 2.  SI.  S2 
where  DELTAG  should  be  set  to  1. 

COSEL  is  the  cosine  of  the  elevation  of  the  sun. 

IVSUN  is  a  Hag  specifying  that  the  sun  angle  is  to  he 

varied  (IVSUN  =  1)  or  is  not  to  be  varied 

(IVSUN  =  0). 


(f)  LPPER.DAT.  The  file  LPPHR J  TN  contains  the  line 
printer  output  algorithm  LP.  The  subroutine  accepts  a  byte  array  of  arbitrary  length 
and  outputs  the  coded  gray  shade  information  of  the  first  100  array  positions.  The 
image  format  is  summarized  in  section  III.  T  of  this  report.  Each  byte  should  contain  a 
value  between  0  and  128.  The  correlation  between  density  and  input  value  can 
be  found  by  examining  the  listing  of  LPPER.FTN  and  correlating  it  with  table  1. 

The  calling  statement  is 

(  ALL  LPER  (SHADE) 

where  SHADE  is  a  byte  (LOGICAL  *  1)  array  of  arbitrary  length. 

ANG  is  the  angle  of  view  (in  radians,  following  the 

mathematical  convention). 

C1.C2,  S1,S2  are  the  values  of  Sx  in  equations  (108.  1 00 > 
and  the  values  of  Sv  in  equations  (108.  100). 
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(g  )  LPPLR.I  TN.  This  file  contains  the  line  printer  output 
subroutine  LP.  The  subroutine  is  a  straightforward  implement  of  the  Yoeli  density 
table  found  in  table  1 .  The  calling  statement  is 

CALL  LP(SHADL) 

where  SHADL  is  a  byte  array  containing  the  coded  image  densities. 


(2  )  Compilation  and  Task  Building.  Before  the  SHDPLR 
shaded  relief  perspective  routines  can  be  run.  the  source  code  files  must  be  compiled, 
and  the  object  files  created  by  compilation  must  be  combined  into  an  executable 
file  by  the  task  builder. 

Compilation  is  straightforward.  If  the  user  is  logged  on  to  the 
system,  then  the  Main  Console  Routine  (MCR)  will  issue  a  prompt: 

MCR  > 


1  he  user  should  then  enter 

I  OR  object  file  name,  LP:  =  source  file  name.  [CR| 

If  no  line  printer  listing  of  the  compilation  is  desired,  the  “.LP:”  may  be  deleted. 
An  example  of  this  process  is 

MC  R  >  FOR  SHDPLR.  LP:  =  SHDPLR  |CR] 

The  output  file  containing  the  object  code  will  be  placed,  by  default,  in  the  file 
SHDPLR. OBJ. 


It  should  be  noted  that  all  of  this  assumes  that  the  User  Identi¬ 
fication  Code  (UIC)  of  the  user  is  that  whose  library  contains  the  needed  source 
code  files  as  outlined  in  this  appendix.  If  not.  recourse  to  the  RSX-ll/M  manuals 
should  be  made.  In  any  case,  all  source  code  files  should  be  compiled. 

At  this  point,  the  executable  task  SHDPLR. TSK  can  be  built. 
I  bis  is  done  by  using  the  indirect  file  SHDPLR. TKB.  (listed  in  this  appendix).  After 
the  last  source  file  has  been  compiled,  one  enters,  in  response  to  the  MCR  prompt 

MCR > TKB  SHDPLR  |CRj 


4 
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This  assumes  that  the  FORTRAN  --callable  data  access  routine  is  stored  under  the 
UK'  (300,  300).  If  this  is  not  the  case,  then  the  command  file  SHDPFR.CMD 
should  be  appropriately  modified  by  the  user.  If  the  user  is  unsure  as  to  how  to  do  this, 
he  should  review  the  RSX-1  I/M  operator’s  manuals.  It  is  also  possible  that  the  user 
may  desire  alternative  device  assignments.  These  may  be  altered  by  changing  the 
command  file  before  task  building  or  at  the  time  of  the  running  of  the  program  (  >ee 
the  following  section).  In  table  5,  a  summary  of  device  assignments  and  program 
characteristics  is  shown. 


b.  Running  SHDPliR.TSK.  Before  discussing  input  parameters,  it 
is  appropriate  to  discuss  the  commands  involved  in  initiating  the  execution  of  the 
SHDPFR  routine,  as  well  as  possible  error  conditions  that  might  occur.  Two  pro¬ 
cedures  are  available  for  initiating  the  execution  of  the  task.  Both  assume  that  the 
task  file  SHDPFR. TSK  has  been  created,  that  the  user  is  privileged  < i.e.  has  logged 
on  to  a  privileged  UK  and  has  SFT  his  UK'  to  that  containing  the  task  file), 
that  the  data  base  CACHF1.DAT  exists  on  DBO:  (and  is  unlocked),  and  that 
both  disk  drives  (DBO:  and  DBl.)  have  been  properly  mounted. 

The  first  means  of  initiating  execution  is.  in  fact,  a  subset  of  the  second. 
In  response  to  an  MCR  prompt,  the  user  enters 

MCR  >  RUN  SHDPFR  IC  R  I 

Fxeeution  should  now  commence,  us  outlined  in  the  next  section.  It  is  possible, 
however,  for  error  messages  to  occur  as  a  result  of  any  of  several  faulty  conditions, 
file  most  frequent  is  related  to  the  files.  Father  the  input  data  file  or  the  output 
data  file  may  he  locked.  It  is  possible  to  check  tiiis  (as  well  as  correct  it)  by  means 
of  the  Peripheral  Interchange  Program  (PIP).  In  response  to  an  MCR  prompt,  the 
user  should  enter 

MCR  >  PIP:CACHF  1  DAT.  DBl:  =  LPPFR.DAT  UN 

If  the  files  are  not  locked.  PIP  will  respond  with  a  message  to  that  effect.  If  tins  is 
the  case  witli  both  files,  check  to  make  sure  that  the  files  exist  on  the  appropriate 
devices  and  are  of  the  right  dimensions.  If  they  don't  exist.  PIP  will  respond  with 
a  message  to  that  effect  after  the  above  command.  It  the  files  were  locked,  then  no 
message  will  be  issued;  an  MCR  prompt  will  be  issued,  and  the  user  should  again 
attempt  to  run  SHDPFR. 


It  shonlil  be  noted  thut  the  active  task  created  by  the  RUN  commumi. 
as  used  above,  will  be  named  by  the  name  of  the  terminal  from  which  the  task  is 
excuted.  Thus,  if  the  user  initiated  operation  on  TTO:,  then  to  abort  the  task  during 
execution,  the  user  must  first  bring  up  MC'R  by  entering  a  <  Control  >  |CR| 
command  and  then  entering,  in  response  to  the  MC'R  prompt 

MCR>  ABO  TTO  (CR| 

Alternatively,  the  task  can  be  INSTALLED  before  running,  and  an 

alternative  name  given  to  the  active  task.  In  response  to  an  MC'R  prompt,  the  user 
enters 

MC'R  >  INS  SIIDPHR/TASK  =  SHDPHR  |CR| 

In  this  example,  the  task  SHDPHR  is  installed  under  the  name  of  SHDPHR. 
Any  other  name  (6  characters)  could  be  substituted  for  the  second  occurrence  of 
“SHDPHR".  Having  installed  the  task,  one  may  alter  the  running  priority  by  using  the 
ALT  command,  or  logical  unit  numbers  can  be  reassigned  to  other  physical  devices  by 
means  of  the  RI  A  command.  See  the  RSX-ll/M  Operating  Procedures  Manual  for 
details.  The  installed  task  is  then  run  as  above.  The  task  should  be  removed  after 
execution  by  the  RHM  command: 

MCR  >  RHM  SHDPHR  |C  R] 


c.  Input  Parameters.  It  is  now  assumed  that  the  program  is  executing 
properly.  In  tin's  section,  the  prompts  issued  by  the  program  in  sequential  order  will 
be  reviewed,  and  the  meaning  of  each  of  the  input  parameters  will  be  explained.  All 
Rl  AD  statements  in  the  program  SHDPHR. FTN  are  list  directed.  Thus,  no  attention 
needs  to  be  paid  to  considerations  of  format. 

Once  the  program  lias  begun  successful  execution,  it  will  issue  a  prompt 
I  NTI  R  (  OORDINATHS  OF  POSITION 

The  user  should  enter  the  X  and  Y  mapsheet  coordinate  (X.  Y  0) 
of  the  position  from  which  he  wishes  to  create  a  perspective  image.  These  coordinates 
do  not  have  to  be  within  the  area  modeled  by  the  coefficients  in  core,  but  if  this  is 
not  the  case,  care  should  be  taken  to  avoid  circumstances  such  as  those  described  in 
the  discussion  of  the  subroutine  (iRNDPT  in  A.I.d.  An  example  of  an  entry  in 
response  to  this  prompt  is 

7.  0.  14.  |(  R| 
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The  shaded  perspective  routine  wilt  now  issue  another  prompt: 


INTER  ALTITUDE,  AZIMUTH.  #  RADIALS.  PTS/RADIAL, 

DIS.  #  P1X/COLUMN,  D 

The  first  value  entered  should  be  the  altitude  in  feet  of  the  observer 
above  ground  level  at  the  coordinates  just  entered.  This  defines  the  program  variable 
HT.  Low  values  for  the  altitude  (0  to  1000  feet)  will  result  in  images  with  most 
of  the  image  portraying  terrain  in  the  foreground;  higher  altitudes  (1000  -  10.000 
feet  )  will  result  in  substantial  coverage  of  distant  objects. 

The  azimuth  to  be  entered  (AZ1),  will  specify  the  direction  in  which 
the  imaging  system  will  face.  The  program  accepts  any  value  for  this  parameter.  It 
assumes  that  the  value  entered  will  be  in  degrees  and  will  follow  the  aeronautical 
convention,  such  that  0°  implies  facing  North,  90°  implies  facing  East.  etc. 

The  number  of  radial  entered  (NRAPS)  specifies  the  number  of  columns 
in  the  resulting  image.  The  actual  number  of  columns  in  the  image  created  will  be 
(because  of  the  algorithm  used) 

#Columns  =  2  times  lNT(#radials  specified/2)  +  1 

The  number  of  columns  are  important  in  determining  the  vertical  dimensions  of  the 
image.  The  software  assumes  a  14.5'inch-wide  display  screen,  and  a  nominal  spacing 
between  pixels  of  DX  =  14.5/(#columns-l ).  This  DX.  when  mutiplied  by  the 
number  of  pixel  per  column,  yields  the  effective  vertical  dimension  of  the  image. 
The  number  of  radials  must  be  less  than  or  equal  to  1023.  and  the  value  entered 
should  be  positive. 

The  number  of  points  per  radial  entered  (NPTS)  will  determine  the 
number  of  elevation  data  points  to  be  generated  along  each  radial  profile.  The  NPTS 
number  should  greatly  affect  the  time  of  execution;  however,  no  study  has  been  done 
of  the  actual  impact  of  the  value  on  execution  time.  It  should  be  greater  than  10 
times  the  parameter  l)  (see  below)  and  must  be  less  than  1024. 

The  distance  of  the  image  plane  from  the  focal  point  is  defined  by  DIS. 
Since  the  width  of  the  image  plane  is  internally  fixed  at  14.5  inch,  the  parameter 
also  defines  the  angular  width  of  the  image.  In  table  5.  a  brief  list  of  total  angular 
widths  are  presented  for  various  values  of  this  parameter.  Values  of  DIS  below  10 
result  m  lish-eyed  views  of  the  terrain,  and  values  of  DIS  above  20  have  narrow 
fields  of  view  and  are  telescopic  in  nature. 
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The  number  of  pixels  per  column  (NP1.X)  defines  the  height  of  the 
image,  as  noted  above.  This  number  must  be  less  than  100  if  line  printer  output  is 
desired,  and  it  must  be  less  than  1024. 

f  inally,  the  mapsheet  length  of  the  radial  of  elevation  data  points  gener¬ 
ated  is  defined  by  D.  Thus,  only  terrain  within  a  radius  D  of  the  position  of  the 
observer  will  be  imaged.  Although  D  may  assume  any  value,  the  value  chosen  should 
reflect  the  si/e  of  the  area  modeled. 

The  values  for  these  seven  parameters  should  be  entered  sequentially  , 
seperate-'  by  commas,  for  example,  one  might  enter 

5000.,  0.,  200..  10..  100.,  10..  100.,  9.6  |C'R] 

The  program  will  next  issue  the  prompt 
f.NTf R  VKRTICAL  SCALING  FACTOR.  TOLLRANCF. 

The  first  parameter  to  be  entered,  the  vertical  scaling  factor  VSF.  is  the 
vertical  exaggeration  to  be  applied  to  the  terrain.  It  corresponds  to  the  y  of  equation 
(9)  and  should  take  a  value  between  1  and  5.  although  any  value  is  acceptable. 

The  second  parameter  to  be  defined,  the  tolerance  TOL.  is  defined  in 
section  III.  B.  There  is  no  mathematically  valid  reason  for  defining  TOL  less  than 
0.5.  Significantly  greater  values  may  under  some  circumstances  result  in  images  of 
ragged  appearance.  Thus.  0.5  is  the  suggested  value. 

One  might  enter  the  following  in  response  to  the  prompt  being  considered 

3.  0.5 

The  next  prompt  asks  the  user  to 

FNTFR  0  FOR  LAM BF RTS  LAW,  1  FOR 
LOMMFL-SFFLIGFR  LAW;  DFNS1TY  SCALING  FACTOR.  ATNTN  COFF 

The  first  entry  requested  defines  the  light-scattering  law  to  be  used  in 
subsequent  processing  and  sets  a  flag  (LAW)  in  accordance  with  the  entry. 

The  density  scaling  factor  DSCL  defines  the  factor  by  which  the  nor¬ 
malized  densities  that  are  calculated  by  the  program  are  to  be  multiplied  before 
packing  each  in  an  8-bit  byte.  Any  positive  value  is  acceptable.  For  the  upper  one- 
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third  of  the  C'AC’HK,  Oklu.  mapsheet  as  modeled  at  FTL.  with  the  sun  at  altitude 
of  45°,  witli  Lambert’s  law  and  with  a  vertical  scaling  factor  of  three,  a  good  value 
is  200.  A  wide  latitude  is  available,  and  it  will  be  needed  for  various  images.  Thus, 
it  is  always  a  good  idea  to  “proof”  a  proposed  image  with  a  line  printer  plot  before- 
generating  a  high  resolution  image. 

The  next  input  requested  defines  the  attenuation  coefficient.  This  para¬ 
meter  effectively  enables  the  user  to  define  the  amount  of  haze  present  over  the  terrain 
viewed.  Since  haze  is  assumed  to  be  of  constant  density,  the  contribution  of  the 
liaze  to  image  illumination  increases  roughly  exponentially  with  distance.  This  para¬ 
meter  should  be  about  half  the  value  of  D.  An  entry  of  0.  results  in  no  haze. 

A  typical  entry  in  response  to  this  prompt  might  be 
0.  200.,  0.  (CRI 

The  final  input  parameter  prompt  of  SHDPSR  asks  the  user  to 
ENTER  ELEVATION,  AZIMUTH  OF  SUN, 

VARIATION  OF  SOLAR  AZIMUTH. 

This  prompt  enables  the  user  to  define  the  illumination  of  the  terrain. 

The  first  two  inputs  requested  define  the  (principal)  position  of  the  sun. 
The  first  value  requested,  the  elevation  of  the  sum  (ELFV1).  is  the  altitude  of  the 
sun  relative  to  a  Hat  base  plane.  The  parameter  can  assume  values  between  0°  and 
90°.  such  that  zero  degrees  defines  the  sun  to  be  on  the  horizon  and  90°  defines 
the  sun  to  be  directly  overhead. 

The  second  input  parameter  defines  the  azimuth  of  the  vertical  plane 
in  which  the  elevation  of  the  sun  is  measured.  Any  positive  value  is  acceptable.  The 
program  assumes  that  the  input  will  be  in  degrees  and  that  the  user  will  follow  aero¬ 
nautical  conventions.  Thus,  an  entry  of  0  would  define  the  sun  as  due  north;  and 
entry  of  90  would  define  it  as  due  east. 

The  third  parameter  enables  the  user  to  vary  the  sun  angle,  as  outlined 
in  section  III,  F  of  this  report.  The  input  requested  is  the  variation  in  solar  azimuth 
to  be  used  in  the  algorithm,  which  defines  variable  RV1HW1.  The  program  assumes 
an  input  in  degrees,  with  any  value  between  0  and  90  being  acceptable.  Any  value 
below  1°  results  in  no  variation  of  solar  azimuth  and  values  of  90°  enables  variation 
through  one  quadrant. 
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At  the  present  time,  no  detailed  guidance  can  be  given  to  the  user  with 
regards  to  the  selection  of  these  parameters.  Optimum  values  are  highly  dependent 
on  terrain,  as  well  as  on  the  other  image  parameters.  A  typical  entry  might  be 

45.,  300..  0.  [CR| 

After  processing  the  image  that  the  user  has  just  defined,  the  user  will 
be  required  to 

ENTER  1  FOR  ANOTHER  IMAGE 

An  entry  of  1  enables  the  user  to  redefine  parameters  as  outlined  above. 
Any  other  entry  halts  execution. 


3.  Orthonormal  Shaded  Relief  Routines.  In  this  section  the  orthonormal 
shaded  relief  routines  SSEPLP  will  be  described.  The  routines  produce  an  ortho¬ 
normal  shaded  relief  image  defined  by  various  input  parameters  from  a  polynomial 
terrain  model.  When  being  run  on  the  ETL  PDPH  1/45  computer,  the  routines  can 
produce  an  image  in  approximately  3  milliseconds  per  pixel,  subject  to  variations  as 
noted  in  the  introduction  to  the  SHDPEiR  routines. 


The  user  of  the  SSLPLP  routines  can 

1.  Specify  the  area  to  be  imaged. 

2.  Specify  the  resolution  of  the  image. 

3.  Specify  the  vertical  scaling  factor  for  the  terrain. 

4.  Specify  the  shading  law  to  be  used  to  model  the  terrain. 

5.  Specify  the  position  of  the  “sun”. 

6.  Define  a  variation  in  solar  position  to  highlight 
terrain  features. 


The  routines  generate 

1.  Diagnostic  output. 

2.  A  DSKTRN-Callable  disk  file  of  coded  pixel  densities. 

3.  Low  resolution  line  printer  plots. 


a.  Building  the  Task:  SSLPLP.TSK.  In  this  section,  the  procedures 
lor  creating  the  tile  SSLPLP.TSK  are  reviewed.  It  is  assumed  that  the  user  has  already 
created  tiles  of  the  source  code  (as  listed  in  appendix  B)  as  well  as  the  FORTRAN 
callable  disk  1/0  routine  DSK.TRN. 


( 1  )  FORTRAN  Source  Code  Files.  Before  describing  the  actual 
procedure  to  create  the  SSLPLP  task  file,  the  function  of  each  of  the  FORTRAN 
source  files  will  be  reviewed.  Since  most  of  the  Files  have  already  been  described  in 
the  SHDPFR  portion  of  this  appendix,  the  previous  discussion  will  not  be  repeated, 
onlv  referenced. 


(a  )  SSLPLP. F'TN.  This  is  the  main  routine  of  the  orthonormal 
imaging  routines.  An  understanding  of  the  basic  structure  of  the  program  can  be 
quickly  gained  by  comparing  the  listing  of  SSLPLP. FTN  with  the  functional  outline 
of  the  FORTRAN  code  presented  in  table  6. 

SLPS.FTN.  This  tile  contains  the  source  code  for  the  subroutine 
SLPS,  which  generates  an  array  of  x  and  y  slopes  at  equally  spaced  points  along 
a  profile  of  the  terrain.  The  subroutine  is  called  by 

CALL  SLPS  (SI.  Yl,  X2.  Y2,  NPTS.  AZA,  BZA.  DLN) 

where 

(XI.  Yl)  are  the  mapsheet  coordinates  of  the  first  point 
of  the  profile. 

(X2,  Y2)  are  the  mapsheet  coordinates  of  the  last  point 
of  the  profile. 

NPTS  is  the  number  of  points  along  the  profile  at 
which  the  slopes  are  to  be  evaluated. 

AZA  is  the  array  that  will  be  Idled  with  the  x -slopes 

3Z/9X. 

BZA  is  the  array  that  will  be  filled  with  the  y-slopes 

3Z/3Y. 

DLN  is  the  distance  in  mapsheet  inches  between 

successive  points  along  the  profile.  It  is  com¬ 
puted  within  SLPS. 


One  COMMON  Block  must  be  defined  in  the  calling  routine: 
(  OMMON/BOLINDS/XMAXB.  YMAXB.  XMNB.  YMINB.  1  LHVB 


They  are: 


The  common  variables  must  be  defined  in  the  calling  routine. 


XMAXB,  YMAXB 

XMINB,  YM1NB 

ELEVB 


The  mapsheet  coordinates  of  the  upper 
right  corner  of  the  area  modeled  by  the 
polynomial  data  base. 

The  mapsheet  coordinates  of  the  lower 
left  corner  of  the  area  modeled  by  the 
polynomial  data  base. 

The  minimum  elevation  in  meters  of  the 
area  modeled. 


The  subroutine  is  very  similar  to  the  SHDPER  subroutine  PTS  in  structure. 


(b  )  ALSLP.FTN.  LPPER.FTN.  SXSY.FTN.  The  files  AFSLP. 
FTN.  LPPER.FTN,  and  SXSY.FTN  contain  the  remaining  subroutines  called  by 
SSLPLP.FTN.  All  have  been  described  in  this  appendix. 


'2  )  Task  Building.  Before  the  SSLPLP  orthonormal  shaded 
relief  routines  can  i>e  run,  the  source  code  must  be  compiled,  and  the  object  files 
created  by  the  compiler  must  be  combined  into  an  executable  task  file  by  the  task 
builder.  Source  files  should  be  compiled  as  outlined  in  this  appendix. 

When  the  source  files  have  been  appropriately  compiled,  the  task 
file  can  be  created.  This  is  done  by  entering 

MCR  >  TKB  <“  SSLPLP  ICR  I 

As  with  SHDPER.  the  indirect  command  file  SSLPLP.CMD  assumes  that  the 
FOR TRAN-callable  disk  I/O  routine  DSKTRN  is  stored  in  the  UK  1300.3001. 
If  this  is  not  the  case,  appropriate  changes  should  be  made  in  the  command  file. 


b.  Running  SSLPLP. TSK.  Execution  of  the  program  should 
begin.  If  an  error  condition  occurs,  it  can  be  corrected  as  outlined  in  the  discussion 
of  the  initiation  of  SHDPER  in  this  appendix. 

The  prompts  issued  by  the  program  will  be  reviewed  in  sequential 
order,  and  the  meaning  of  each  of  the  input  parameters  will  be  detailed.  As  with 
SHDPER.  all  READ  statements  in  SSLPLP  are  list  directed,  and  no  attention 
needs  to  be  paid  to  the  format  of  the  input  parameters. 


prompt 


Once  the  program  has  begun  successful  execution,  it  will  issue  the 


ENTER  MAPSHEET  COORDINATES  OF  LOWER 

LEFT-HAND  AREA  OF  INTEREST 

The  user  should  enter  the  X  and  Y  mapsheet  coordinates  of 
the  lower  left  corner  (north-up)  of  the  area  of  interest.  This  point  does  not  have 
to  be  within  the  area  modeled  by  the  coefficients  in  core,  though  the  unmodeled  area 
will  appear  as  a  featureless  plane.  An  entry  in  response  to  this  prompt  might  be 

5.,  15.  |CR] 

The  program  will  next  prompt  the  user  to 

I  NTER  HEIGHT  AND  WIDTH  OF  AREA  OF  INTEREST 

Height  is  the  y-extent  of  the  rectangular  region  to  be  modeled,  and  width  is  the  corres¬ 
ponding  x-extent.  Both  are  measured  in  terms  of  mapsheet  inches.  A  user  might  enter 

4.,  4.  |CR] 

The  program  next  asks  the  user  to 

ENTER  #  P1XELS/HORJZONTAL  LINE 

The  SSLPLP  calculates  one  profile  of  elevation  data  points  at  a  time.  Each  profile 
has  a  constant  Y- coordinate,  with  successive  profiles  running  from  the  upper  (greater 
Y)  boundary  of  the  rectangle  to  the  lower  boundary.  This  prompt  is  asking  the  user 
to  define  the  number  of  pixels  in  each  of  the  profiles,  which  defines  the  pixel  size  and. 
thus,  the  number  of  profiles.  It  should  be  noted  that  a  value  of  NPIX  (the  number 
of  pixels  per  profile)  of  100  or  less  results  in  the  immediate  production  of  line 
printer  output,  as  well  as  of  the  disk  file.  Values  greater  than  100  will  create  only 
a  disk  file.  A  typical  entry  might  tie 


100  |CR) 

The  program  next  asks  the  user  to 


ENTER  VERTICAL  SCALING  FACTOR 


The  number  entered  will  be  used  to  scale  the  Z-eoordinate  of  the 'terrain,  resulting 
in  an  appearance  of  greater  relief.  Values  between  1  and  10  are  reasonable,  although 
the  values  of  other  parameters  will  have  an  impact  on  the  appearance  of  the  final 
image.  No  absolute  guidance  can  be  given.  This  and  other  parameters  must  be  opti¬ 
mized  together,  not  one  at  a  time.  A  typical  entry  might  be 

3.  |('R| 

The  user  next  determines  the  light-scattering  law  that  he  will  use 
to  model  the  reflectance  of  the  terrain.  The  user  is  asked  to 

ENTER  FOR  LAMBERTS  LAW.  I  FOR  THE  LOMMl  L-SEELIGER  LAW 

The  prompt  is  self  explanatory. 

The  final  image  defining  prompt  asks  the  user  to 

ENTER  ANGLE  OF  ELEVATION  OF  LIGHT. 

DIRECTION  OF  LIGHT.  AZIMUTHAL  VARIATION 

This  prompt  plays  precisely  the  same  function  that  the  corresponding  prompt  plays 
in  the  SI  IDLE  R  routines.  The  user  is  referred  to  that  section  for  more  information 
about  this  prompt. 

At  this  point,  the  program  executes,  and  the  user  is  asked,  upon 
completion  of  the  image  just  specified,  to  respond  to 

ANOTHER  IMAGE:  ENTER  #1 

The  user  should  enter 

1.  [CRI 

in  order  to  continue  execution.  Any  other  entry  will  halt  execution. 
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FIGURE  (7.  Perspective  View.  High  Sun:  C  ache,  OK 
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SHDPER.FTN  /TR : BLOCKS/WR 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 


0009 

0010 


0011 

0012 


0013 

0014 

001b 

0016 

0017 


0018 

0019 


C  THIS  PROGRAM  WILL  PRODUCE  AN  EBR-COMPATlbLE 
C  9-TRACK  ODD-PAR11  Y  MAGNETIC  TAPE  HLE 
C  CONTAINING  THE  CUDED  DENSITIES  OF  A  PER- 
C  SPEC XI VE  VIEW  01  THE  CACHE  MAP  SHEET, 

C  BASED  ON  USER  SPECIFIED  INPUT  PARAMETERS. 

C 

C  PROGRAM  BY  CYRUS  C.  TAYLOR 

C  AUTOMATED  CARTOGRAPHY  BRANCH 

C  USAETL,  TORT  BELVU1R ,  VA 

C  18  JULY  1978 

C 
C 

LOG1CAL+1  SHADEC2048) 

DIMENSION  Y(2048 ) 

DIMENSION  ATIM ( 2 1 

COMMON  /BOUNDS/ XMAXB, YMAXB , XM1NB , YM I NB,ELEVB 
COMMON  /REG/NRD1 , NRD2 , NRD 3 , NRD4 , NRG 1 ,NRG2,DXX 
COMMON  /NEw/MRDR 

COMMON  /SEXY /DELTAG ,CUSEL , IVSUN ,ANG,C1 ,C2,S1 ,S2 
COMMON  /AARGH/X, Y 0 , THETAP , D , NP1 S , DX , H , VSF, 

1  SCL, TOL,UELR,D IS, THETA, Y 1ST 
C  tULLUWING  COMMON  ADDED  lo  AUG  79 
C  1  OR  NEW  GRNDPT  ROUTINE.  C.  TAYLOR 

COMMON  /HGRAA/Z1 , Z2 ,CSTP , SSTP , CST , SST 
C 

DATA  XMAXB/l/.696/,XMlNB/.17717/, YMAXB/21 .59/, 

1  YM1NB/.1 77 17/,ELEVB/390./,IUN1T/0/,KODE/-1/, MODE/O/, 

1  1PAR/0/, 1DEN/0/, ICTL/128/,K0UNT/128/ 

DATA  PI/3. 141 5926536/, SCL/. 000787401 6/ 

1  MRDR/'l  / 

DATA  IIMG/0/,lPFST/0/,IRFST/0/ 

C  OPEN ( UN IT=4,NAME='PL3DEM. DAT* , TYPE*' OLD' ,ACCESS= 

C  1  'DIRECT' .READONLY, SHARED, ASSOC  I ATE V AR I ABLE= 1 V ) 

C  OPEN ( UN 1T=9,NAME=' FOROOb.DAT ' , T YPE= ' OLD ' , 

C  1  ACCESS='D1RECT' , READONLY, SHARED, ASS0C1ATEVARIABLE=IW) 

C 

C  CALL  TAPTRM1UNIT,  KODE,  KOUNl ,  1ER,NTRAN  ,  IPOS ,  1ST  AT, 

C  1  SHADE, MOUE, IDONE) 

C  IFUERR.EO.OJGO  TO  100 

C  WRIT  E IS , 1 1 1ERR 

C  1  FORMAT ( '  TAPTRN  ERROR:  ',13) 

C  STOP 

100  CALL  DSKF1LI 4 , -1 , 'DBO ' , 'CACHE1 .DAT ' ,DUM, 1 024 , 1 00 
1  ,  1FLAG, 1ERR) 

IFdERR.EU.OlGO  TO  102 
WRI1EI7,2)1ERR,1FLAG 

2  FORMAT ( '  OPEN  FAILURE  DBO JCACHtl  ',213) 

STOP 

C  101  CALL  DSKF1LC3,-1,'DB0', 'CACHE2.DAT', DUM, 1024,122, 

C  1  1FLAG, IERR ) 

C  IFUERK.EQ.OJGO  TO  102 

C  wRITE(5, 3)1 ERR, 1FLAG 

C  3  FORMAT ( '  OPEN  FAILURE  DBO (CACHE2  ',213) 

C  STOP 

102  KOUNT=8*IPARtlDEN+ICTL 

CALL  DSKF IL ( 2 , - 1 , ' DB2  '  ,  'LPPER.DAT' ,DUM,  1024,204  3, 
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SHUPER. 

UN 

/tr:blocks/wr 

1 

IFLAG , I ERR ) 

0020 

IF! 1ERR.EU.0)GU  TO  114 

0021 

WRITE!7,115)1£RR, IFLAG 

0022 

115 

FORMAT! lA, 'DB2:LpPER  OPEN  t A 1 LURE ' , 2 1 3 ) 

0023 

S1UP 

0024 

114 

CONTINUE 

0025 

127 

FORMAT! IX, 2A4) 

C 

CALL  TAPTRN!1UNIT,6,K.0UNT,1ERR,NTRAN,IPUS,1STAT, 

C  1 

SHADE, MODE, 1DQNE) 

C 

IF ( IERR . EQ . 0 ) GO  TO  103 

C 

WRITE  15,1) IEKK 

C 

(  ' 

STOP 

0026 

V 

103 

WRITE! 7,4} 

0027 

4 

FORMAT!'  ENTER  COORDINATES  Ot  PUSITION') 

0028 

READ 15,*)X,Y0 

0029 

WRITE! 7 ,5) 

0030 

5 

FORMAT!'  ENTER  ALTITUDE, AZIMUTH, »RADIALS,PTS/RAD1AL' 

1 

/,'  D1S,*PIX/C0LUMN,D') 

0031 

R£AD15,*)HT,AZ1,NRADS,NPTS,DIS,NP1X,D 

0032 

WRITE (7, 6) 

0033 

6 

FORMAT!'  ENTER  VERTICAL', 

1 

'  SCALING  FACTOR,  TOLERANCE'} 

0034 

READ!5,*),VSF,TOL 

0035 

WRITE17 ,  /} 

003b 

7 

FORMAT!'  ENTER  0  FUR  LAMBERTS  LAW,  1  FOR  LOMMEL- ' , / , 

1 

'  SEELIGER  LAW;  DENSITY  SCALING  FACTOR; ATNTN  COEF') 

0037 

READ  15,* )LAW,DSCL,ATNTN1 

0038 

WRITE  17, 8} 

0039 

8 

FORMAT!'  ENTER  ELEVATION ,  AZIMUTH  OF  SUN,*',/,' 

1 

VAR  AZIMUTH1AT10N  OF  SOLAR') 

0040 

READ (5,*) ELI ,AN1 ,RVIEwl 

C  FOLLOWING  3  LINES  OF  CODE  ADDED  1  AUG  79  BY 

C  C.  I AY LOR  TO  IMPROVE  EFFICIENCY  IN 

C  'SNAPSHUT'  PKOCESSEiNG,  ETC. 

0041 

WRITE17, 125) 

0042 

125 

FORMAT! IX, 'ENTER  Y-OFFSET') 

0043 

READ  15,*) YFSET 

0044 

CALL  TIME! AT1M) 

0045 

WRITE! 7, 127) !ATIM! 1JKL) ,1JKL=1 ,2) 

004b 

IVSUN=0 

0047 

1F1RV1EW1.lt. l.)GO  TO  104 

0048 

IVSUN=1 

0049 

104 

AN=90.-AN1 

0050 

IF  INRADS. GE.1024  JGO  TO  126 

0051 

1PFST=1024*U  IMG- 12*  1 1  IMG/2)  }  ) 

0052 

IRFST=1024*UIMG/2) 

0053 

126 

CONTINUE 

0054 

AZA=!PI/2. )-!AZl*Pl)/180. 

0055 

RVIEW=RVlEWl/360. 

0056 

RVIEW=!Pl-2.*RViEw)/2. 

0057 

EL= ! ELI *P1 ) / 1 80 . 

0058 

AN=!AN*Pi)/180. 

0059 

ANGs! 1 135.*PI)/180. )-AN 

0060 

DX=14./FLOAT!NRADS-l) 

C  FOLLOWING  LINE  ADDED  1  AUG  79  BY  C.  TAYLOR 

» 
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SHDPER. 

0  061 
OQb2 
0063 
0064 
OOob 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
007b 
00/7 
0078 
0079 
0080 
0081 
00b2 

0083 

0084 

0085 

0086 


0087 


0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

009b 

0097 

0098 

0099 

0100 
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■TN  / XR:BLUCKS/WR 

OFST=YFSET/DX 

DXXaDX 

MRAD=NRADS/2 

H=HT*12./50000.  * 

SZ=SIN (EL) 

SY=SIN(AN)*COS(EL) 

SX=COS(AN)*COS(EL) 

COSEL=COS(EL) 

DELR=D/FL0AT(NPTS-1) 

DELTA=D/1  LUAT ( NP1X  3 
UELTAG=(DELTA*50000.)*C2.54/100.) 

DELTAP=( DELTA/ ( ( (5.E"4)*100,/2.54)*9. ) ) 
Cl=COS(-RVIEW+(3.*Pl/4. 3  3 
Sl=SIN(RVlEw+(3.*Pl/4.3) 

S2=SIN(RVIEW-(PI/4. 3) 

C2=CUS(-RVlEw-lPl/4. 3 ) 

DELS0R=DtLlAG**2 
ATNTN=ATNTN1 
1TST=0 
CALL  IRGSTR 

WRITE(6,10)X,Y0,HT,AZl,VSF,LAIft,ATNTNl 

10  FORMAT ( *  X, Y=l *,2F9.4, * )  HTs*,F9.4,*  AZ=*,F9.4,*  VSF=*, 

1  F  9 . 4  ,  *  LAW=*,i5,*ATNTNl=*,F8.5) 

WRIT£(6,U)NRADS,NPTS,NPIX,MRDR,T0L,RV1EW1 

11  FORMAT ( '  NRADSs',15,'  NPTS**,15,'  NPIXs*,  15,*  MRDR* * , 15 , * 

1  T0L=',F9.4, *RVIEw=*,F8.33 

WRITE(6,12}EL1,AN1 , DSCL , I VSUN , D , D1S 

12  FORMATt*  EL, ANSI  * , 2F9. 4 , '3  DSCL=* ,F9.4, '  1VSUN=*,  15 

1  D=* ,F9.4, *  D1S=* ,K9.4,/) 

C  DO  LOUP  OVER  THE  RADIALS 
C 

DO  105  NRAD=MRAU,-MRAD,-l 

C 

C  HHST  PT  OF  RADIAL  IS  X,Y;  LAST  POINT  FOUND  BY 
C  TRIGONOMETRIC  CONSIDERATIONS.  NOTE  IHAT  IN  THIS  PROGRAM 
C  RADIALS  ARE  SEPERATED  BY  A  CONSTANT  DISPLACEMENT 
C  IDX)  AT  THE  IMAGE  PLANE,  RATHER  THAN  BY  A  CONSTANT  ANGLE 
C  AS  IN  THE  TEKTRONIX  PERSPECTIVE  ROUTINES. 

C 

C  MULTIPLE  IMAGE  FILES  MUST  READ  PREVIOUS  IMAGE 
C  11  The  PREVIOUS  IMAGE  is  TO  BE  PRESERVED. 

C  FOLLOWING  8  LINES  ADDED  C.  TAYLOR  10  AUG  79 
MRCNT=MRAD-NRAD+1 ♦ IRFST 
lF(IIMG,Ey.0)G0  TO  128 

CALL  DSK1HNC2, 1 , 1ERR , MRCNT , NRES , SHADE, 0 , 1 DONE 3 
IFdERR.EU.03GU  10  128 
WRITEC7,118)IERR, INRAD, MRAD, MRCNT 
STOP 

128  CONTINUE 

C  END  OF  ADDITION  10  AUG  79  CCT 

THETA=ATAN( (NRAD*DX)/D1S) 

IASCD=0 

THETAP=AZA*THE1A 

CSTsCOSCTHETA) 

SST=S1N ( THETA) 

CSTP=COSdHETAP) 


* 


i 
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0101 

0102 

0103 

0104 

0105 


010b 


010  / 


0108 

0109 

0110 

0111 

0112 

0113 


0114 


011b 


1V-PLUS  V02-51E  13:21  :37  21-APK-81 

IN  /TR:BLOCKS/wR 

SSTP=SIN IIHETAP) 

XEND=D*(CSTP) 

XEND=X+XENU 

y£ND=YQ+D»(SSTP) 

CALL  PTS(X,YO,XEND, YtND,NPIS,Y ,DLN,1ASCD) 

C  FOLLUW  1NG  LINE  ADDED  FOR  COMPATIBILITY  WITH 
C  NEW  GKNDPT  ROUTINE.  C.  TAYLOR.  16  AUG  1979. 

1ASCD=1 

C  FOLLOWING  COMMENTS  ARE  NO  LOl.GER  APPROPRIATE. 

C  1HESE  COMPUTATIONS  ARE  WUw  0 ONE  IN  GROUND 
L  CORRELATION  ROUTINE.  C.  TAYLOR  16  AUG  79. 

C  WRITE(6,13)(Y(IGF ),IGF=1,NPTS) 

C 

C  NOW  HAVE  THE  RADIAL  REPRESENTED  BY  A  PROFILE  OF 
C  ELEVATION  DATA  PTS.  wE  NEXT  TRANSFORM  THESE  TO 
C  SCREEN  COORDINATES,  SO  THAT  wE  MAY  COMPARE  PIXEL 
C  Y-VALUES  WITH  PROJECTED  GROUND  PTS,  EVENTUALLY 
C  TNTERPULATING  TO  FIND  GROUND  POSITIONS  CORRESPONDING 
C  TO  PIXEL  POSITIONS. 

C 

C  FOLLOWING  3  LINES  COMMENTED  OOUT  FOR  NEW 
C  GRNPUl  ROUTINE.  16  AUG  19/9.  C.  TAYLOR 
D  DO  10b  1 P 1 sNPTS ,2,-1 

D  YS=H*( Y(1 )-Y(lPT) )*VSF*SCL 

D  10b  yCIPT)  =  7.-YS*D1S/U1PT-1)*DELR*CST) 

Y1ST=Y(1) 

C  FULLUwING  LINE  COMMENTED  OUT  lb  AUG  79.  CCT. 

0  Yll)=-100. 

C 

C  THE  CURRENT  RADIAL  HAS  NUN  BEEN  CONVERTED  TO  SCREEN 
C  Y-VALUES.  NOw  LOOP  OVER  THE  PIXEL  POSITIONS  OF 
C  ThE  SCREEN,  DETERMINING  CORRESPONDING  GROUND 
C  POSITIONS,  IF'  ANY,  AND  COMPUTE  IMAGE  DENSITY  AT 
C  i Hose  points. 

C 

NF  LAG=0 
YMAX=0. 

1  =  1 

C  WRITE  (  b,  13HY1  IGF)  ,  IGF'=1  ,NPIS) 

13  FORMATUOC  IX,  10F10. 4, /),//) 

DO  107  J=1,NP1X 

C  FOLLOWING  LINE  ADDED  l  AUG  79. C. TAYLOR. 

IF  1J.LT.OFSDGO  TO  108 

C  FOLLOWING  LINE  COMMENTED  OUT  FOR  NEW  GRNP1 
C  ROUTINE  17  AUG  79.  C.  TAYLUK. 

D  1 ASCD=0 

CALL  GRNDrltJ, Y,NF  LAG,X1, Y1  ,  I  ,  YMAX,  1ASCD 
1  , AZ , BZ , Z , 11ST ) 

C  lF(J.NE.lU.ANU.J.NE.ll) GO  TO  112 

C  wRITElb, lb)X, Y0,X1 ,  Yl 

Clb  FORMAT ( *  GKNDPT  V ALUES : * , 4F 1 0 . 4 ) 

G112  continue 

IF  ( NF  LAG. NE.O. AND. w F  LAG. NE. 10 )GU  TO  108 
U  IF  INFLAG. EU. 10)G0  TO  111 

C  t-OLLOwlNG  LINE  COMMETED  OUT  lb 
C  AUG  /9  FOR  NEw  UKNDPT  RUUTINE.  C.  TAYLOR 
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01  lb 


0117 
01  IB 
01 IV 
0120 
0121 
0122 
0123 
0124 
012b 

0126 


0127 

0128 


0129 

0130 

0131 


0132 

0133 

0134 

013b 

0136 

0137 

0130 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

014/ 

0148 

0149 

0150 


0151 


1V-PLUS  V02-51E 
UN  /  TR  :  BLOCKS  / * K 

0  1 ASC0= 1 

C  FOLLOWING  LINE  SUPERFLUOUS  Wll'R  NEW  GRNPDT 
C  ROU1INE.  16  AUG  79.  C.  TAILOR 

CALL  ALTlXl.Yl ,Z,SN,AZ,BZ, IASCD3 
C  I  Ol.LOW  I NG  TwO  LINES  COMMENTED  OUT  C.  1AYLOR  10  AUG  79 
C  AZ1=AZ 

C  BZ 1 =BZ 

AZ=AZ*VSF*DEL1AP 
BZ=BZ*VSF*DELTAP 
CALL  SXSUSX.Sl  ,  AZ,BZ3 

BEG=-SX*AZ*DELTAG-SY*bZ*DELTAG+DELSQR*SZ 
DISI=SQRTUAZ*UELTAG3**2+(BZ*DELTAG3**2+(DELSOR**2) 3 
CUS1=BEG/D1SI 

IF (COS  I. LI . 1 .E-b3CUSl=. 000001 
1FCLAW.E0. l)GO  TO  109 
SHAD=CUS1 

C  wRITECb,  1 13 3 AZ1 ,BZ1 ,AZ,BZ, V SF , DELTAP , SX , SY , SZ , DELTAP , DELI AG 

113  FORMAK2C  1X.6F10. 5, /),//) 

C  THIS  LINE  ADDED  IN  NEW  FOG  FOR  CALCS 
C  24  AUG  79  C.  TAILOR 

IF(ABS(ATNTN3 .LT, 1 ,E-3)GO  TO  138 
109  CONTINUE 
C 

C  LOMMEL  SEEL1GER  NOT  AS  EAST  AS  IN  NORMAL  VIE*... 

C 

R1P  =  S0RTUX1-X3**2  +  (YI-Y0  3**2  3 
YS=H+(Y(1 )-Z)*VSF*SCL 
RHR=SQRTIR1P*»2+YS**23 
C  FOLLOWING  LINE  ADDED  FOR  SMOG  FACTOR 
C  C.  TAYLOR  24  AUG  79 

IF C LAw , NE , 1 )  GO  TO  110 
ALPHA=CATANUS/R1P)  ) 

V  X  =  CCSTP ) *COS ( ALPHA J 
VY=(SIN( IHETAP 3  3  *  CCOS (  ALPHA ) 3 
VZ=SIN ( ALPHA  3 

COSE=(l“DELTAG*(AZ*VX+BZ*VY3+VZ*DELSQR33/DISl 
SHAD  =  1,/(1.  +  ( COSE/C OS I  3  3 
IF (SHAD. LT.l.E-6 ) SHAD=0. 000001 
IF(ABS(ATNTN3 ,LT. 1 .E-33GO  TO  138 
110  CONTINUE 

FCTR=ABSIKRR/ATNTN3 
SHAD=1 .+ (SHAD-1. 3 *EXP(-FCTR3 
138  SHADs  C  ALUG10 ll./SHAU33*DSCL 

IF (SHAD.LT . 1 . 3SHAD=1 . 

IF(SHAD.GT.127. 3SHAD=127. 

SHADE! J+1PFST)=SHAD 
GO  TO  107 

108  SHADE!J+1PFST3=0. 

107  CONTINUE 
C 

C  NOW  OUTPUT  PROFILE 
C 
C 
C 

C  FOLLOWING  2  LINES  MUO'FD  10  AUG  79  C.  TAILOR 
NRODsMRCNT -IRFS1 
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SHDPER. 

FTN 

/TR:BLOCKS/wR 

0152 

CALL  RGSTR ( NROD , SHADE) 

0  1  b  3 

CALL  OSKl'KN  (  2 , 2  ,  TERR ,  MRCNT  ,  NRES  ,  SHADE ,  0 , 1  DONE) 

0154 

IFCIERR.EO.OjGO  TO  105 

0155 

wHITEC  7, 1 18) I£RR,NRAD,MRAD,MRCNT 

015b 

118 

FORMAT (IX, 'DSKTRN  FAILURE' >13. 31bJ 

C 

HRITE(5,14)NRAD,MRAD,MRCNT 

C  14 

FORMAT ( '  NRAD=',3I6) 

0157 

C 

C 

C 

105 

STOP 

0158 

CONTINUE 

0159 

IFCNPIX.GT.IOOJGO  TO  136 

OlbO 

DO  116  NRAD=1 , (2*MRAD+1  ) 

C  FOLLOWING  LINE  ADDED  10  AUG  79  FOP  MULTIPLE 

C  IMAGE 

■PROCESSING.  C.  TAILOR 

0  1  b  1 

NROD=NRAD+IRFST 

0162 

CALL  DSKTRN(2,1,IERR,NRQD, NRES, SHADE, 0,1 DONE) 

OlbJ 

1FC1ERR.EU.0JG0  TO  120 

0  1  b  4 

WRITE  (  7 , 118 ) IERR 

01b5 

STOP 

C  NOTE  THAT  PROGRAM  16  NOTliiliilil  MODIFIED  TO 

C  CORRECTLY  PRINT  MULTIPLE  IMAGE  FILES  ON  LPO: 

0166 

120 

CALL  LP ( SHADE ) 

ou; 

116 

CONTINUE 

0168 

1J6 

CONTINUE 

C 

C  bEC'AUSE  OF  EBH  SOFT* ARE  PROBLEMS,  SEPERATE 
C  IMAGES  b I  5  RECORDS  UP  B ALNKS ,  WITH  AN 
C  EOF  AFTER  ALL  IMAGES 
C 
C 
C 
C 
C 

c 

c 

c 

c 


0  1  6  V 

1  1  1 

CONTINUE 

C.  .  . 

4  LINES  COMMENTED  OUT  R.  ROSENTHAL  6/79 

C  UNCUMMENTED  C.  TAILOR,  WITH  MODS  TO  ALLOW 

C  MULTIPLE  IMAGES  TO  BE  GENERATED  OVERNIGHT 

C  NEXT 

3  LINES  ADDED  SAME  TIME  C.  TAILOR  9  AUG  79 

01  /o 

I  IMC=IIMG+1 

0  1/1 

GALL  T1MECATIM) 

0172 

WRITEC7, 127) (AflMClUKLJ , 1 JKL=1 ,2) 

0173 

WRITE(7,139)ITST 

0174 

139 

FORMAT  C 1 X , ' » ALT  CALLS  FROM  GRNDPT*',I8) 

0175 

1FC11MG.GT .3) GO  TO  137 

01  /  b 

WRITE (7, 9} 

017  7 

9 

FORMAT  (  '  ENTER  1  (•  OH  ANUIHEH  IMAGE' ) 

0178 

R  E AD ( 5 , * ) 1 ANS 

0179 

IFIIANS.EU.IJGU  TO  103 

0180 

137 

CONTINUE 

0181 

CALL  DSKF1 L( 2, -2, 'DB2' , 'LPPER.DAT' ,DUM, 1024, 2048, 
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SHDPER.FTN  /  IK : BL0CK6/wK 

1  IFLAG , 1ERR ) 

0182  CALL  DSKFIL(4,-2, *UbO*,  'CACHE1,  DAT',  DLM,  1024, 100, 

1  IFLAG  * IERR ) 

C  CALL  D6KFiL(3,-2, *DBO* , 'CACHE2.DAT* ,DUM, 1024,122, 

C  1  IFLAG, IERR) 

C 

C  CLUSE(UN1T=4,U1SPUSE=*SAVE*) 

C  CLOSE (UN1T=V, DISPOSES* SAVE* ) 

C 

C 

C 

C 

C 

C 

c 

oiai  stop 

0104  END 


uma) 
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K UNTKAM  U-PLUS  *02-51t 
SHUPEK.HN  /TR:bLOCKb/*R 

phugba.m  sections 


NUMBER 

NAME 

sue 

AllJUbOltS 

1 

SCuutl 

OObO  3b 

129b 

Pm  r  l  ,CuN  «  LCL 

2 

SPUATA 

000126 

43 

Rm  ,  D , CUN , LC  L 

3 

SIDAIA 

00lb74 

446 

Pm , D , CUN  »  LCL 

4 

SVAPS 

024366 

b243 

P'n  ,D,CUN,  LCL 

b 

STEMPS 

000012 

b 

Pm , 0 , CUN , LC  L 

0 

ouUNDb 

000024 

10 

M , D,UVH , GbL 

7 

PEG 

00o020 

8 

HW,0,OVP,Gbl 

8 

NEm 

000002 

1 

Pm , D , U  V  P , GBL 

9 

SLAV 

000036 

lb 

Hk  ,0,llVP,GbL 

10 

A  Ah  Oh 

000066 

27 

Km , D , UVP , GbL 

11 

RGRAA 

000030 

12 

Pm , 0 , U  V  R , GbL 

VAK1 AbUfcS 


NAME 

TKPfc 

AUDNESS 

NAME 

UHL 

ADDRtSS 

NAME 

URL 

ADDRESS 

NAMt 

hpl 

address 

NAME 

TYPE 

ALPHA 

8*4 

•*-024332 

AN 

K  *  4 

4-024120 

AMO 

8*4 

9-OUOOl 2 

AN  1 

R  *  4 

4-024102 

A7I.1N 

8*4 

A  1  MM 

P  ♦  4 

4-0  2  4u  1  2 

AZ 

R*  4 

4-0  2  4  2bo 

AZA 

h  ♦  4 

4-024124 

A  Z  1 

P  *4 

4-0240b4 

bEG 

P  •  4 

BZ 

8*4 

4-024262 

COSt 

H*4 

4-024362 

CUSt'L 

P*4 

9-O00004 

CUSI 

P*4 

4-024J06 

CST 

P»4 

Co  TP 

P44 

11-000010 

Cl 

K*  4 

9-000016 

C  2 

K*4 

9-000022 

0 

P«4 

10-000014 

DtLP 

P  •  4 

LiLLiyP 

R  *  4 

4-024172 

ULLTA 

P*  4 

4-024162 

DLL! AG 

P*4 

9-000000 

DELlAp 

P*4 

4-024166 

Ulb 

P  *  4 

JlSl 

P*4 

4-024302 

OLN 

P*4 

4-024230 

LiSCL 

R*4 

4-0240bb 

DUM 

P  *4 

4-024040 

DX 

P*4 

LIAA 

H  *4 

7-000014 

EL 

h  *4 

4-024134 

t  L  L  V  b 

h*4 

6-0O002U 

LL1 

P  *  4 

4-02407b 

ECTP 

8*4 

rt 

P«4 

10-000026 

HI 

h  *  4 

4-U2405O 
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4-024342 

ii 

h*4 

4-024  34o 

A 

8*4 

1  U-OOOOUO 

XENL 

R*  4 

X  1 

K  •  4 
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4  0  9b 

1204b) 

l AdLlS 
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FUHTHAN  1 V “PLUS  V02-blfc 

SXSY.FTN  /TR:BLQCKS/WR 

C  THIS  SUBROUTINE  IS  DESIGNED  TO  VARY  ThE  AZIMUTH  OF  1HE 
C  'SUN '  TO  STRENGTHEN  THE  DETAIL  IN  ShADED  RELIEF  IMAGES 
C  CHEATED  BY  PRUGRAMS  SHADE. FIN  AND  SHADLP.FTN, 

C  REFERENCE:  P.  YOEL1 ,  'SOME  REMARKS  ON  THE  COMPLETION 
C  OF  THE  ANALYTICAL  HILL  SADING  PROJECT' 

C  (UNPUBLISHED?-AUTO  CARTO  F 1LES) 

C 

C  PROGRAM  bY  CYRUS  C.  IAYLOR 

C  AUTOMATED  CARTOGRAPHY  BRANCH 

C  USAETL,  FORT  btLVUiR,  VA 

C  11  JULY  1978 

C 
C 

0001  SUBROUTINE  SXS Y ( SX , SY , AZ , BZ ) 

0  00 2  COMMON  /SEXY /DELI AG.COSEL, I  VS UN , ANG ,C1 ,C2 ,S1 ,S2 

OUU3  REALM  NX,  NY 

0004  IF ( I VSUN . EQ. 0 )GO  TO  110 

C 

000b  NX=-AZ*DELTAG 

uood  ny=-bz*df:ltag 

0  00  7  D1SF  1=S0RTUNX**2)  +  INY**2)  ) 

OooB  IF ID1SF 1 . NT . 1 . E-b )GU  TO  110 

OOo  9  C  0  =  NX/DISF I 

0010  S0=N Y/D1SF1 

ooll  C=C0*C0S(AnG)-S0*S1N(ANG) 

Oul  2  S-SO*COS(ANG)+CO+S1N(AnG) 

C  IN  EFFECT,  UUK  X-Y  COORDINATE  SYSTEM  HAS  BEEN 
C  ROTATED  THROUGH  AN  ANGLE  OF  ANG  RADIANS.  NOTE 
C  THAT  THE  ANGULAR  COORDINATE  SYSTEM  DSED  IN  THIS 
C  ROUTINE  ANO  IN  SHADE  OR  SHADLP  IS  NOT  THE 
C  AERONAUTICAL  ANGULAR  COORDINATE  SYSTEM,  BUI  THE 
C  TRAD1T1UNAL  ALGEBRAIC  COORDINATE  SYSTEM.  SINCE 
C  OUR  X-l  COORDINATE  SYSTtM  HAS  BttN  ROTATED, 

C  SA  AND  SY  MUSI  bt  RuTATtU  BACK  btFDRt  RETURNING 
C  TO  THE  MAIN  ROUTINE. 

C  SECTOR  1  CASE 


0013 

lFCC.Gl.(Cl).  UR  . S . LT. (S 1 ) )GO 

TO  10 

0014 

SX=“C ♦COSEL 

001b 

S  Y  =-S ♦CUSEL 

001b 

GU  TO  100 

C  SECTOR 

TIT  CASE 

001  1 

10 

TF1C.LT.IC2).  OR  . S  .  GT . C  S  2 ) ) GO 

TO  20 

001  B 

SX=C ♦COSEL 

0  019 

SY=S*CUSEl 

0020 

GU  TO  100 

C  SECTOR 

11  CASE:  2  SUBCASES 

0021 

20 

1FUC.H  .O.AND.S.LT.O)  .OR.  (C.L1 

.0.AND.S.LT.S1 ) 

1 

. UR . 1 S . L 1. 0 . AND . C . LT . C 2 ) ) GO  TO 

30 

00/2 

IF IC.GT.IU.7071) )GU  TO  2b 

002  3 

sx=o. 

00^4 

SY=-CUSEL 

0023 

GO  TO  10b 

UU2b 

2b 

SX=CUSEL 

002  / 

Sl=0. 

0  0  2  B 

GU  TO  100 

C  SECTUR  IV  CASE:  2  SUBCASES 
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FORTRAN  1  V-RLUS  V02-51E 
SXSY.FTN  /TR:8L0CKS/wR 


0029 

0030 

0031 

0032 

0033 

0034 

003b 


003b 
003  I 
0038 
0039 
C040 
0041 
0042 


30  IFIC.LT. C-0.7071 ) )GU  TU  35 

SX  =  0 . 

SY=-COSEL 
GO  TO  100 
3b  SX=CUSEL 

SY  = 0. 

loo  Cunt inue 

C  WE  MUST  NOW  ROTATt  OUR  LOCAL  X-Y  COORDINATE 
C  SYSTEM  BACK,  SO  THAT  SX  AND  SY  WILL  BE  CONS-ISTANT 
C  WITH  THE  MAIN  ROUTINES. 

Y=SY*COS( aNG)-SX*S1N(ANG) 

X=SX*COS( ANG)+SY*SIW(ANG) 

5X  =  -X 
SY=-Y 

110  CONTINUE 
RETURN 
END 
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sx 
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C 

C 


F 1 LE  NAME  -  LPPER.FTN 


-30U1 

SUBROUTINE  LPCSnAOE) 

J002 

LOGICAL* 1  SHADED  3  ,CrtARC12) 

0003 

LOGICAL* 1  PRNTC100) 

0004 

DATA  CHAR/ *  * ,  * . * ,  ,  *  1 • , 

1 

*A‘,  *4',  '*'/ 

C 

wRITEC5,bl 3  C SHADE  CM) , Ms  1,32) 

300b 

bl 

FORMAT C 1  A ,  3203  ,/) 

)U0b 

OU  10  1=1,3 

300  7 

130  50  K=  1,100 

3008 

IF C SHADE .  K ) ,LT .0. )SHADECK)=127 

300V 

PRNTCK)=CHAR(1 ) 

3010 

bo 

CONTINUE 

3011 

DO  20  J=l,100 

3U12 

IFCSHAUtCJ) ,GT.b)GO  TO  21 

3013 

lFd.NE.13GU  TO  20 

3014 

PRNT ( J  3  =CH AR ( 1 3 

3015 

GO  TO  20 

3016 

/I 

IF(SHAUECJ) .GT.93GO  TO  22 

>01  / 

IF  C1.NE.13GU  TO  20 

>U  1  « 

PKNTC J)=CHAKC2) 

>019 

GU  TO  20 

>020 

2/ 

1FCSHADECJ) .GT.133GO  TO  43 

>021 

IFC1.NE.DG0  TO  20 

>022 

PRNT  c  J  3  =CHAR ( 3  3 

>0^3 

GU  TO  20 

>0/4 

43 

IF CSHADECJ) .GT. lb)GO  TO  23 

>u2b 

1FC1.NE.13G0  TO  20 

>02b 

PRNTCJ)=CHARC4) 

>02  / 

GO  TO  20 

>0/8 

23 

IF  CSHA13ECJ3.GT.193GU  TO  24 

'029 

lFCl.Nt.13GU  TU  20 

1 0  3  o 

PRNT  C  J  3  =CH AR  C  b  3 

'031 

GO  TU  20 

■033! 

24 

IFCSHAUECJ) .GI.243GU  TU  25 

•033 

IFC1.NE.13GU  TO  20 

034 

PRNTCU)=CHARCb) 

03b 

GU  TO  2o 

03b 

2b 

IF CSHADECJ) .GT.283GO  Iu  2b 

03  / 

IF  CI.NE.13GU  TO  20 

038 

PRNTCJ)=CHARC7) 

039 

GO  TU  20 

040 

2b 

1FCSHADECU) .G1 .333GO  TO  27 

041 

IFC1.NE.13GU  10  20 

04/ 

PRN1  CJ)=CHARC83 

043 

GO  10  20 

044 

2/ 

IF  CSHADECJ) .Gl. 38 )GU  TO  28 

0<*b 

IFC1.EQ.33GO  TO  20 

04b 

IF Cl.E0.1)PRNr(J)=CHARC9) 

o4  / 

IF  (I.E0.23PRN1  CJ3=CfiARC23 

048 

GU  TU  20 

049 

ZB 

IF CSHADECJ). G1.443GU  TU  29 

ObO 

IF  Cl.EO.33GU  TO  20 

Obi 

IF  CI.EO. 1 3PRNTCJ3=CHARC 10) 

Ob/ 

IF  C1.E0.2)PRNTCJ)=CHARC5) 

i 
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PPtK.l  I'M 

/  TH  ;  BLOCKS/  t.K 

053 

go  ru  20 

054 

29 

IF1SHA0E!J).G1'.51)GU  1U  30 

055 

11  ll.E0.3)GU  TU  20 

u5b 

lFCl.ty.  1  )PRNl  !J)=CHAK! 10) 

05  7 

11 !l.ty.2)PRwl !U)=CnAK!5) 

058 

GO  ru  20 

059 

iO 

1FCSHADE!  J)  .GT.58)GO  10  31 

ObO 

IF  Cl. Eg. 3) GO  10  20 

u6  1 

IF (I. EO. 1 )PKN1 !U)=CrtAR! 10) 

Obi 

11 C  l.ty.2)PKNT( J)=CHAH18) 

Obi 

GO  TO  20 

064 

31 

1FISHADE! J) ,GT.bb)GO  10  32 

Ob5 

lF(i.Ey.3)PRNTCU)=CHARC4) 

Obb 

IFU.Ey.  1  )PRNTCU)=CHARCb) 

Ob7 

1F(I.EQ.2)PRM(J)=ChAK(10) 

Uo8 

GO  TO  20 

0b9 

3  2 

IFCSHADtiJ) .Gl. 7b)GU  10  33 

U  70 

PRNTCJ)=CHAR(11) 

071 

1FU.EQ.  1  )PKN1  (J)=CHAK(  10) 

072 

I F  C I . EO . 2 ) PRNT ! J ) =CHAK  C  9) 

07  J 

GO  TO  20 

0  74 

33 

PRNT! J)=ChAR( 1 2) 

0  75 

IFCl.Ey.llPKNllJ) sCHAR  CIO) 

076 

IF!  I.EQ.2)PRNTCJ)=CHAR!5) 

0  7  7 

20 

CONTINUE 

078 

*KlTE!b,500) CPRNTCL) ,L=l , 100) 

079 

500 

FORMAT! '+* , IX, 100A1 ) 

08U 

10 

CONTINUE 

081 

wR1TE1o,501 ) 

Obi 

501 

FORMAT! IX) 

Obi 

RETURN 

Ob  4 

END 

r 
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UKTRAw  1V-FL0S  V02-S1E 
.LSLP  .FIN  /TR  :BLuCKS/v»K 


C  THIS  SUBROUTINE  ACCEPTS  THE  A,*  COORDINATES  OF 

C  A  PQINTUN  I'Ht  CACHE  MAP  SHEET,  AnD  RETURNS 

C  1  HE  L  VALUE  AT  THAT  POINT 

C 

££************************************************ 

c 

c  SUBROUTINE  BT  CTRUS  C.  TA1LOP 

C  COMPUTER  SCIENCE  SPECIALIST (TRAINEE) 

C  AUTU-CARIU  UR 

C  l'DL ,  USAETL 

C  FORT  BELVLIP ,  V A 

C  23  AUG  19)7 

C 


C 


>U01 

SUBROUTINE  ALi  (A,T  ,  2 ,  SN  ,  AZ ,  bZ ,  1  ASCII ) 

>002 

INTEGER  C0EF1 

•UO  3 

LOGICAL* 1  C0EK2 

>004 

DIMENSION  CUEF 1(90,40 ) , BUF ( S 1 2 ) , COEF 2 ( 90 , 40 , 3 ) 

>00b 

DIMENSION  Fill (4) , F 1 T 2 ( 4 ) ,F1T3(4) , F I T 4 ( 4 ) 

>0Ub 

COMMON  / uUUN DS /AM AX b, 1MAAB,XMINB, TMINB, ELEVB 

>00  / 

Common  /new/mrdr 

1008 

1 

IF(X. LT.XMAXB  .AND.  T.LT.TMAXB 

.AND.  X.Gl.XMlNb  .AND.  i . Gl . i MI NB ) GO  TO  2077 

)009 

2=ELEVb 

1010 

AZ=0. 

loll 

uZ  =  0  . 

1012 

RETURN 

1013 

2077 

CUN11NUE 

1014 

DATA  IFIRST/O/ 

lolb 

IT  (1 hi  RSI. 01. 01  00  10  111 

JOlb 

1  h  I R  S  T  =  1 

101  / 

1 S AV  E  =  0 

1U18 

U  5  A  V  E  =  0 

1019 

bUPUER  =  ( (b.E-41*lO0./2.S4)*b. 

1020 

F IT* ( BURDER/8 . 1*9. 

)  0  2  1 

DO  112  K=l,90 

1022 

CALL  DSMRN  (  4, 1 , 1ERR  ,  K  ,  NRES  ,  BUF  ,0 , 1UUNE) 

1023 

lh  (lERR.GT.O)  Ou  1'U  9999 

)  0  2  4 

DU  114  J  =  1 ,40 

1 0  2 1> 

L  =  4*(J-1 1  ♦  b  +  3  2  8 

)02b 

CUtf  1  ll\,  J  J=BUF(L) 

1027 

COEF 2 ( N , J , 1 l=BUh ILt  1  1 

1028 

CUEh  2 ( K , J , 2 )=BUh t l+2 1 

1029 

C0EF21K, u , 3 J=bUr (L+31 

)U3U 

114 

Cun  r INut 

1031 

112 

C  ON  T 1 N  UE 

1032 

1  1  1 

CUNT1NUE 

1033 

J=InT( (A”OURDER)/h IT  )  ♦  1 

1034 

1  =  1 N  r (  U-BURDERI/Fin  +  I 

103b 

J l =J  1 1 

1 0  3  o 

1MuD=1-82 

103  / 

ih (  1 . EU. ISAVE.  AND. J  .  ty . JSA VE)  GO  TO  80 

10.1b 

lFllMUD.Ll .1 )  OO  lu  9998 

1039 

lh (J.OT.90)  OU  10  9998 

1 0  4  0 

lb=( 1MUD-1 )*4 

* 
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)041 
3042 
30*3 
3044 
304b 
304b 
304  7 
304a 
3044 
J05o 

3051 

3052 

3053 

3054 

3055 
3o5b 
J05/ 
305B 
3059 
30bu 
0  Ob  1 

0  Ob  2 
00b  3 
0  Ob  4 
OOob 
OObb 
0  Ob  7 
OOoB 
0  0  o  9 
007  0 
0071 
00  /  2 
0  0  /  3 
0  0  7  4 
00/5 
o  0  7  o 
00  7  / 

oo  /a 

00/9 

ooao 

UOH  1 

o  0  a  2 
uoa  3 
O0H4 
o  o  a  5 
ooao 
ooa  7 
ooaa 
o  o  a  9 
0  090 
0091 
0092 
009  3 
0094 
0095 
0  0  9b 


Kill  113=038.1  1  C  J  *  J.MUDJ 
FlT2(l)=CUtt  1(J,1MU13+1) 

F 1 1 3 ( 1 3  =COEF 1 ( J 1 , 1  MOD  3 
F1T4(1 3=CUfcH  CJ1 , 1M0U+1) 

DO  /S  1P  =  2 / 4 
1 1 =IB+ IP 
12=lb+4+lP 

FIT1  UP)=CufcF2(J  ,  1MGU,  IK-1  3 
Fir2(IP)=COEF2lJ,lMGD+l  ,1P-13 
1  1 1 3 ( 1 P  3  =CGEt  2(Ji  ,  IKuU,  IP-1  3 
F 1 14 ( IP  3  =CGEF2 ( J 1 , iMUUtl , IP-1  3 
75  CONTINUE 

BO  CON  IInUE 

XC=FL,OAT  ( J-l  3*F1T  +  B0KUEP 
XG=(X-XC3/F IT 
1 C  =KLUA  !  C 1  - 1  3*t  11+bukDt.k 
XG=lX-XC)/t  11 
xLC  =  XL-l . 

XLC=XL-1 . 

21=Firill34FlTH23*XL  ♦  (U  1  It  3  )  +FI 1 1  (  4  )  *XL )  ♦  XL 
Z2=FlT2(13+t  112(2)*XL  ♦  l  F II  2  (  3  )  4-FIT  2  1  4  3  *XL  3  *  IOC 
'Z3  =  FlT3(13+Hi3(23*XLC  +  C  U  1  3  C  3  3  +  F  1 T3  t  4  3  *  XLC  3  *  XL 
Z  4  =  F 1 1  4 1  1  3  ♦  F  1X4123  *  X  LC  +  l  U  1  4  (  3  3  +  F II 4  (  4  3  *  XLC  3  *  XI, C 
XL2  =  AtJ0(XL»*  IMHUK+l  3  J 
XLC2=AB5(XLC** (KkOk+1 3 3 
lL2=ABS(XL**(HRUR+  1 3  3 
XLC2  =  AbS(XLC**(MKl)K+l  J  3 
It ( lABCu.tV. 0 )GU  1U  200 
AZl=t  iri(23  +  FUU4)*IL 
Az2=Fl  I2C23+P  112(43* XLC 
AZ3=F 113(23+ F113(43*XL 
AZ4  =  F  114(23  + Fi'l  4(4)*  XLC 
bZl=Fl  I'l  (  3  3+H  11  (4  3  *XL 
bZ2  =  FH2(33+Fi  i2(4)*XL 
dZ3  =  F 1 r 3 ( 3  3  +r  1 I  3 ( 4 ) *XGC 
bZ4  =  F 1 1 4  (  3  3  +t 114(4) *XLC 
200  CuNTINUE 
ALC=-XLC 
XLC=-XLC 

*l=(ALC2*(-2.*XLC+3. 3  3*( I LC 2* ( “2 . *1 LC  +  3  .  3 3 
v»2=(  ALC2*(-2.  *ALC+3. 3  3*1 lL2*(-2.*XL+3.  3  3 
«3=(XL2*(-2.*Ag+J.))*(XLC2*(-2.*XLC+3.3) 
a4=(XL2*(-2.*XL+3.))*(XL2*(-2.*XL+3.3) 

It  (  1  ASCO  .  tV.O  3  v.U  1U  205 

Au*l=-b. *ALC*( 1 .-XLC) ♦( »LC2*(-2.*XLC  +  3. 3  3 
AU*3  =  b.*AL*(l.-AL)*ULC2*(-2.*XLC  +  3.3) 
AU«2=-b.*XLC»(l.-XLC3*( tL2*(-2.*XL+3.33 
AUa4=o.*aL*(1.-XL)*(XL2*(-2.*xL+3.)  3 
bD»1=-o.*XLC* ( 1 . -XLC3*(  XLC2M-2. *XLC  +  3. 3  3 
UD*Z=b.*iL*(l.-YL)*(ALC2*(-2.*XLC+3.3) 
bU*3=-b.*XLC*(l  . -XgC)*(XL2*(-2.*XL+3.3) 
dO*4=6.*iL*(1.-XL)*(aL2*(-2.*aL43.)3 
AZ  =  Z1*AUiv1  +  Z2*AGa2  +  Z3*AOa3  +  Z4*ADw4 
AZ=A2+AZ1*a1+AZ2*a2+AZ3*w3+AZ4*M 
02=21  *BD*1  ♦  Z2*bL>w2  +  Z3*bUh3  +  24*BlJ*4 
b4  =  HZ  +  BZl*Al  +  tiZ2*A2  +  bZ3**3  +  bZ4**4 


« 
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U097 

205 

Z=Z1*«1+Z2*W2+Z3*W3+Z4*W4 

009b 

210 

CONTINUE 

C 

WRITE (b , 101 ) A2,BZ,Zl , 22 ,Z3 , Z4,W1 , W2, w3, *4, ADwl  , ADW2 , 

C  1 

,ADw3,  Al)w4,,BDwl ,  bDw  2  ,  BDW3  ,  BDw  4  ,  AZ 1 ,  AZ2 , AZ3 , AZ4 ,BZ1  ,BZ2, 

C  1 

bZ3 , BZ4 

0099 

101 

F0RMAT(1X,2F9.4,2X,2(4F9.4,2X),/,2(1X,3(4F9.4,2X),/),//) 

0100 

100 

FORMAT (1X,15,15,2F10.3,F10.3,/) 

0101 

JSAVE=J 

0  1 U2 

1 S A  VE= 1 

ul03 

iUSV  E  =  lUNlT 

0  104 

RETURN 

0105 

9999 

WR1TEC5, 99991  HERK 

010b 

99991 

fUKMATC'li/U  FAILURE  ON  OBI :  -  IERR  =  ',133 

010/ 

S10P 

010b 

999b 

2=310. 

0109 

RE  TURN 

0110 

END 
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1 
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SFDATA 

UO0024 
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PM,D,CUN,LCt 

J 
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HZ 
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O-U00020 

Hi 
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lh 
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itPK 
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IF 
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12 
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A 

-•4 

k -0 ouO02  * 

AC 
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Al 

b  *  4 

4-047274 

ALC 

P  *  4 

4-04  7  3  1  0 

ALC  2 

b  *  4 

■.-■-4/144 

Al  2 

A  *4 

4-c 4  7  340 

AMA  AP 
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b-UOOoOO 
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b*4 

b-OOoOVo 

i 
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k -000004 

IC 

F*4 
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22 
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CUtk  2  L*  1  4-Glby4o  u/buOu  b>H.J  (<PO»*H,3  7 

nil  H  •  4  4-047120  0W0U2U  B  14  7 
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F 1  1 4  H  *  4  4-0472U0  OUl'U20  «  (47 


LAbtLS 

LABlL  AUOPkaB  LActL  Ai,UPt66  LAbtL  AL’LPtib  LAbtL  AUUPtSS  LABt-L  AULPLSU 


F L'h  l  H  AN  IV 
AL6LH  »t IN 

•kiib 

/  iriJOLi'Cri/*** 

1  > ;  ^4 :  *\j 

A'Aljt  0 

lb 

Hi 

*07 /  1 

**  ttu 

*•  1  1  •* 

•UtU4  w*n 

1  -  JU  1  J 

*  * 

1  -WO JUb* 

100  * 

20u 

•  « 

l-ool7 It 

1  -  u  U  3  0  j  o 

lol  * 

iOb 

»***  1  ' 

•  • 

1  -  0  ri  i  7  o  0 
j-ouuoow 

1  1  1 

if  1  0 

1-000444 

«  » 

tukCiiOhS  asi  sibAuJl  L't.i  rtfr  thti«Cn; 

[h  i 

1  u  l  A  o  ok AC t  ALLuCAltu  =  102? oi  llUul 
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C 

C 

C 

C 

Q**** 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C**** 

c 

c 


THIS  SUBROUTINE  CALCULATES  THE  X.Y  POSITIONS  OK 
ALL  POINTS  ALONG  A  LOS  PROFILE  AT  WHICH  THE 
ELEVATION  IS  TO  BE  CALCULATED 

********************************************** 

PROGRAM  BY  CYRUS  C,  TAYLOR 

AUTO-CARTO  bK 
TDL,  USAETL 
TDL , U ASETL 
23  AUG  1977 

PROGRAM  MODIFIED  19  JANUARY  1979 
IN  ORDER  TO  BE  COMPATIBLE  WITH  DUAL 
ALTITUDE/SLOPE  COMPUTATION 
SUBROUTINE  AL3LP.FTN,  TO  BE  USED 
BY  SHADED  RELIEF  PERSPECTIVE  SFTWR. 

C.  C.  TAYLOR 

*********************************************** 


SUBROUTINE  P TS t X 1 , Y 1 , X2 , Y 2 , NPTS , B , DLN , I ASCD ) 

dimension  Bin 

COMMON  /bounds/xmaxb,ymaxb,xminb,yminb,elevb 
FNPTSl=FLOAT(NPTS*l) 

ULN=(S0RT( (X2-XU**2+( Y2-Y1 )**2) 1/FNPTS1 

DX=(X2-X1)/F NPTS1 

UY=CY2-Y1 J/FNPTSi 

SN=D Y/DLN 

DO  100  1=1, NPTS 

F1M1=FL0AT(1-1 ) 

X=XI+F1M1*DX 
Y  =  Y  1  ♦  1 1 M 1 *0 1 

IFU.LT.AMAXB  .AND,  Y.LT.YMAXB 
.AND.  X.GT.XMINB  .AND.  Y.GT.YMINB)  GO  TO  50 
BCD  =ELEVB 
GO  TU  100 

CALL  ALTU,Y,Z,SN,AZ,bZ,lA5CDl 

BC  D=Z 

CONTINUE 

RETURN 

END 
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R»,  1  ,COf.,LCL 
fi*,D,COS,LCL 
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K*,D,CuN,LCL 
R*,C,GVP,GbL 


cRIkj  PulM 


i'ImHl 

lift  ntuRiss 

i-APE 

TYPE  ADDRESS 

RARE 

T*Pt  ADDRESS 

NAME 

TlPt  ADDRESS 

NAME 

TYPE  ADDRESS 

Plo 

1 •  o  u  j  o  w  \j 

An  1  AbLEs 

NAME  liPt 

AlDPESS 

.‘.AML 

]  iPt 

ADDRESS 

SAME 

liPE 

ADDA  ESS 

N  AMt 

I YPE 

ADDRESS 

'.ABE 

T  <Pt 

ADDRESS 

Ai. 

»*»•* 

4-ojod42 

oi 

r  *4 

4-oou04d 

DLh 

h*4 

fr -OwUC Id* 

LX 

R*4 

4-OOOOC4 

DY 

R  •  4 

4-oOowlO 

ELfc.b 

n*4 

6-uOo020 

F1H1 

R*4 

4-000022 

FWPTS1 

R*4 

4-000000 

1 

1*2 

4-000020 

IASCD 

1*2 

F-000020* 

»PiS 

1*2 

r-OoOOW* 

SN 

n  •  4 

4-0y00l4 

X 

h»4 

4-00 oo2d 

XMAXfa 

K  •  4 

6-000000 

XM1NB 

R  •  4 

b-OOOo 1 0 

Al 

H*4 

t -o oooo/* 

ki 

A*4 

fr -00000©* 

i 

R*4 

4-00003^ 

K  RAXB 

H*4 

6-000004 

iBlNb 

R*  4 

6-00  0  0 1 4 

i  1 

n*4 

fr-OoO 004* 

1 2 

R*4 

fr'-OGoUlO* 

c 

R*4 

4-oOC.G  Jb 

ARRAYS 

NAME  IjPE  ALuhlSS  6 1  It 

a  P*4  fr-0oool4*  Wb-jv j4 


D1HENS1UNS 
(  1  ) 


LABELS 

LABEL 

ADDRESS 

LAPEL 

ADDRESS 

LABE'l 

ADDRESS 

So 

1  -000  36b 

lOo 

1  -000432 

LABtL  ADDRESS 


LABEL  ACDFLSS 


FUNClLUNS  AM-  SLBKUU T I NES  RtfrtHENCED 
AL1  SSO'Hi 

TOTAL  SPACE  ALLOCATED  «  000610  196 
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FORTRAN  1V-PLLS  V  0  2-b  1 E 
RGSIR.FTN  /TR : BLOCKS/rtR 


0001 
0002 
00U3 
0004 
0005 
0006 
0007 
0008 
0009 
U010 
001  1 
0012 
OOli 
0014 
0015 
0016 
0017 
0018 
0019 
OQ20 
0021 
0022 
0023 
0024 
0025 


SUBROUTINE  RGSTRINRAD, SHADE! 

LOGICAL*  1  3HADE(17 

CUMMON  /REG/NRD1 , NRD2 , NRD 3 , NR04 , NRG 1 , NHG2 , LX 
1F(NRAD.LE.NRD2.  AN U  .  NRAD . GE . NRD 1 7  GO  X£J  10 
IFINRAD.LE.NRD4.AND.NRAD.GE.NRD37GO  TO  20 
GO  TO  100 

10  1FCNRAD.NE.NRD17G0  TO  11 
DO  12  J=NRG1 , NRG2 

12  SHADE(J7=127 

11  SHADE(NRG2 J=127 
GO  TO  100 

20  1FINRAD.NE.NRD47GO  TO  21 

DO  22  J=NRG1 , NRG2 

22  SHADE ( J  7  =  1 27 

21  SHADECNRG2 7=127 
GO  10  100 
ENTRX  1RGSTR 
NRD4=lNT(13./DX+0.57 
NRD3=INT( 12.b/DX+U.S7 
NRDlsINTll ./DX+0.57 
NRD2=INT(1.5/DX+0.b7 
NRGl=lNI(B.b/DA+0.57 
NRG2=iNT(9./DX+0.57 

100  RETURN 

END 


FORTRAN 
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V02-S1E 
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RLSTR.F1N 

/TR:BLUCKS/»K 

PRO OH AM 

SECTIONS 

NUMBER 

NAMt 

SIZE 

ATTRIBUTES 

1 

SCODt 1 

000402  lbi 

KM, 1 ,C0N,LCL 

1 

SI0A1A 

000012  5 

HM,U,CON,LCL 

4 

(YAKS 

01)0002  1 

Kn,D,CUh,LCL 

S 

(TEMPS 

000002  1 

RM,0,CON,LCL 

b 

REG 

000020  B 

RN,D,OVK,CbL 

ENTRY  POINTS 


NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

AUDKESS 

NAME 

TYPE 

AUDKESS 

NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

IRUSTR 

1-00027 2 

HGSTK 

1-000000 

VARIABLES 

NAMt 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAMt 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

OX 

H*4 

6-0000  t 4 

J 

1*2 

4-OOOOuO 

NR  AD 

1*2 

► -0O0002* 

NRD1 

1*2 

b-OOuOOO 

NKD2 

1*2 

b-00000 i 

NKDi 

1*2 

6-000004 

NKD4 

1*2 

b-000006 

NKG1 

1*2 

b-QOOOlO 

NkG2 

1*2 

6-000012 

ARRAYS 

NAMt 

TYPE 

AUDKESS 

sut 

DIMENSIONS 

SHALL 

L*1 

»■ -000004* 

000001 

0 

UJ 

LAbtLS 

LABEL 

ADDRESS 

LABEL 

AUDKESS 

LABEL 

address 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

1U 

l-0u0u&2 

n 

1-000142 

12 

•  • 

20 

l-0001bb 

21 

1 -00024b 

22 

* 

♦ 

100 

1-000412 

TOTAL  SPACE  ALLOC A ILL  *  UOOS20  lob 
#  LP . LS  r-PLSlh 
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GRNDPT.FTN  /IP:  bLUCKS/ wR 

0001  SUBROUTINE  GF1NDPT (J ,  I » N  FLAG  >7(1 #11,1 

1  , UMAX, 1ASCD,AZ,BZ»Z,11ST) 

C  THIS  GUbPOUIlmE  is  Ufc-SIGNED  AG  A  MOPE 
C  EFFICIENT  IMAGL/UBJEC'l  CORRELATION  ROUI1NE 
C  1 h A U  1  HE  (JP1G1NAL  GRNDPT.FTN  OF  AUG  78. 

C  SEE  "COMPUTER  GENEKAT  1UN  OF  SHADED  RELIEF  IMAGES 
C  FUR  CAHIUGKAPH1C  APPLIC  AT  IONS"  F  OP 
C  DOCUMENTATION .  ALGORITHM  AND  ROUTINE 
C  by  C.  TAyLUP,  lo  AUG  79 


u0o2 

1 

CUMMUN  /AARGH/X, i 0 , 1  HE I AP , D , NP'l S , DX , 

H, VSF, SCL, rOL.DELH.DI S, THETA, 1 1ST 

0003 

COMMON  /HGRAA/'Zl  ,  2,2  ,CS  IP  ,  SS1P  ,CST  ,  SST 

O0U4 

DIMENSION  Y(l) 

000b 

IF  INFLAG. EG. 1 )GU  TO  30 

OOUb 

i S  =  J  *DX 

000  7 

IF  l  1  .tit.  1  3  GO  1U  10 

oooa 

X 

II 

CSj 

0009 

22=1(23 

0010 

1 t 1 J=-100. 

001  1 

1(2 J=H- (1(2 3- 11 ST)*VSF*SCL 

0012 

1 (23=7 .»( i (2)*01S) /(ULLk*CSTJ 

0013 

10 

C  U  N  T  I H  U  t 

0  0  1  4 

IF (IS. Gt. 1(11, AND. IS. LE.!(1+1))GU  TO  20 

001b 

1  =  1  +  1 

001b 

IF (i.Nt.NPlSJGU  TU  70 

001  7 

NF'LAG  =  1 

00  1  w 

GU  '1U  30 

0019 

7  0 

21=22 

UOzO 

22  =  1 (  1  +  13 

0021 

lU+U=H-(22-VlSn*VSF*SCL 

0022 

1 

Kl  +  l3  =  7.-(i(l  +  lJ*DlS3/ (FLOAT ( 1 ) ♦DELK* 

CST  3 

0023 

Gu  I u  10 

0024 

2  0 

C  Un  1 1 N  U  E 

O02b 

20  =  22 

002b 

ZL  =  21 

002  7 

A=FSF*SCL 

0028 

ZP=ZU-ZL 

0029 

K  =  F LUA 1 ( 1- 1 J  +  UELR 

0  0  3  0 

df;li  A=UELR 

0031 

R  L  =  P 

0032 

RU=R+DELR 

0033 

1  r  R  I  N  =  0 

0034 

bO 

CUNT  1  NUE 

C  FOLLOWING  LINE  COMMENTED  GUI  AF'iEH  LE- 
C  bUGGING.  17  AUG  79.  C.  1A1LUR 

D 

rtRXTE(e,  100)  1 ,0  ,DELR  .DELTA  ,ZP,  2L.2U  ,CS'l 

003  b 

100 

F  u  p  M  A  T  ( 1  A  ,  2  1  b  ,  to  F'  1  0  .  b  3 

0036 

ANUM=(-ri*DlS-( llST”ZL3*A*blS-2P4A*RL*DIS/DELlA3 

0037 

DEn=(1S-7  .  )*CST-21  *A*D1S/DEL1A 

00  JB 

p  Al;  =  AN  U  M/L  EN 

00  39 

1  IPI.J  =  I  1R1N+1 

0040 

IF  ( 1  fR  iw.fcy . 2b 3 OU  1U  bO 

0041 

aI=X+pAD*CSIP 

0042 

1 1  =  1 0  +  p AL  *  SS  TP 

004  3 

iTsi  =  nsi  +  i 

13:25:59 


/l”Ar'r*Bl 


PAGt  2 


FORTRAN  1V-PLLB  VU2-51E 
GRNDPT.FTh  /TR:dLUCRb/*vR 


0044 
004b 
004b 
004  7 
0048 

0049 
0050 
0051 
0052 
0  0  5  3 
0054 
0055 
005b 
005  7 
0058 
0059 
OObO 
00b  1 
00b2 
00b  3 
0  Ob  4 


CALL  ALTCXi , 1 1 , Z , SN , AZ , bZ ,  1ASCD7 
i IR1=R-(Z-T 1ST)*VSF*SCL 
i  TRi=7.-(lTKY*DlS)/(RAu*CST} 
lEHR  =  n'RT-15 

IFCAbSUERRJ.LT.  (1UL*IUJ  JGO  1U  JO 
C  Ta(j  POSSIBILITlES:CGNCAVt  AND  CONVEX 
TFUERR.GT.OIGU  TD  40 
ZP=ZU-Z 
Zl  =  Z 
rL=KAD 
DELT  A  =  RU-HL 
RL=R AD 
GU  TO  50 
40  ZP=Z-ZL 

zu=z 

RU=HAD 
DEL1A=RU-RL 
GO  TU  50 
bO  CUNflNUE 

30  CUNTINUE 

RETURN 
END 


1 3:25:59 
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Fortran  iv-plus  vu2-5it 
GRNDPT.fTN  /TK:ttLUCKS/«R 

PROGRAM  SECTIONS 


NUMBER 

NAME 

SUE 

ATTRIBUTES 

1 

scout  1 

001412 

J89 

Kh,l ,CUN,LCL 

i 

S1DATA 

000032 

13 

rn.d.con.lcl 

4 

SVARS 

00007b 

31 

Rn.D.CON.LCL 

b 

AARGh 

QOQQbS 

21 

RN , 0 , 0  YR , GBL 

7 

HGRAA 

0000  30 

12 

R»*,D,OVR,GBL 

ENTRY  POINTS 

NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS 
GRNDPT  1-UUOOoU 


VARIABLES 


NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

A 

N*4 

4*000014 

ANUM 

R*4 

4*000046 

AZ 

R  *  4 

P-000022* 

bZ 

R*4 

P-000024* 

CST 

H*4 

7-000020 

CSTP 

R*4 

7-000010 

D 

R*4 

6*000014 

DLLH 

R*4 

6*000046 

DELTA 

P*4 

4*000030 

DEN 

R*4 

4-000052 

D1S 

R*4 

6-000052 

DA 

R*4 

6-000022 

H 

R*4 

6*000026 

1 

1*2 

F-000014* 

1ASCD 

1*2 

F-000020* 

ITRfN 

1*2 

4*000044 

1TST 

1*2 

F-000030* 

J 

1*2 

F-000002* 

NFLAU 

1*2 

F-000006* 

NPTS 

1*2 

6*000020 

R 

H«4 

4*000024 

RAD 

R*4 

4-000056 

RL 

R*4 

4*000034 

RU 

R*4 

4*000040 

SCL 

R*4 

6*000036 

SN 

H«4 

4*OOOOb2 

5ST 

K*4 

7-000024 

SSTP 

K*4 

7-OOOOM 

THETA 

K*4 

6*000066 

ThETAP 

P*4 

6-000010 

TOO 

R*4 

6-000042 

Vi>F 

R*4 

6-000032 

X 

R*4 

6*000000 

XI 

R*4 

F-00001 0* 

TERR 

R*4 

4-000072 

Y 1 

H*4 

F-0O0O12* 

YHAA 

R*4 

F-0000 1 6* 

YS 

R*4 

4-000000 

YTHI 

R*4 

4-000066 

YO 

R*« 

6-000004 

VIST 

R*4 

b*000062 

Z 

R*4 

K-000026* 

ZL 

R*  4 

4*000010 

ZP 

R*4 

4*000020 

ZU 

H*4 

4*000004 

Z1 

R*4 

7*000000 

Z  2 

R«4 

7*000004 

ARRAYS 

NAME  TYPE  ADDRESS  SIZE  DIMENSIONS 

Y  R*4  3-QO0OO4*  000004  2  IU 


LABELS 


LAbLL 

address 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

LABEL 

ADORESS 

LABEL 

ADDRESS 

10 

1*000232 

20 

1-000504 

30 

\-OU14iO 

4C 

1*001322 

50 

1-000626 

60 

1*001402 

70 

1-000332 

100' 

•  « 

FUNCTIONS  AND  SUBROUTINES  REFERENCED 


TUI  AL  SPACE  ALLOCATED  *  001060  472 


4 
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GRNDPT.FTN  /TRsBLOCKS/WR 

.LP.LSTsGRNOPT 


SSLPLP/PP:0/t  P/CP/N01H=SSLPLP, [ JOO ,  300 J DSK TPM 
SLPS  ,  ALSLP  ,  LPPEK  ,  i>KSi  ,  QUAN1 ,  RCSLP 
/ 

UNIT5S21 
ASG=T1 : 1 , T1 : b 
ASG=H:a 

ASG=DBO : 1 4 , Db/ : x i 
// 
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F  OR  TRAN 
SSLPLP. 


0001 


0002 


0  00  J 
0004 
0005 

000t> 
0007 
000b 
0009 
0010 
0011 
0012 
001  J 
0014 


0015 


001  6 


TV-PLUS  V02-51E 
FTN  /TR:BLOCKS/wR 

C  THIS  PROGRAM  MILL  PRODUCE  AN  OUTPUT  9  TRACK 
C  MAGNETIC  TAPE  FILE  CONTAINING  THE  OPTICAL 
C  DENSITIES  OK  AN  ORThONORMAL  IMAGE  OF  A  USER- 
C  SELECTED  AREA  UK  THE  CACHE,  OK  MAP  SHEET, 

C  ThE  USER  MAT  SELECT  BETWEEN  TWO  FORMULA  FOR 
C  THE  DETERMINATION  OF  THE  GHAT  SHADES,  SPECIF* 

C  ThE  POSITION  OF  THE  SUN,  THE  PIXEL  DENSITY, 

C  AND  A  VERTICAL  SCALING  FACTOR. 

C 

C  ********************************************** 

c 

C  PROGRAM  BY  CYRUS  TAYLOR 
C  AUTOMATED  CARTOGRAPHY  BRANCH 
C  ENGINEER  TOPOGRAPHIC  LABS 
C  FuRT  BELVOiR,  VA 
C  27  JUNE  1978 
C 

C********************************************** 

C  DIMENSION  THE  TwO  ARAYS  THAT  MILL 
C  CONTAIN  THE  DATA  PTS  FOR  TmQ  SUCCESIVE 
C  ELEVATION  PROFILES.  THESE  MILL  BE 
C  USED  TO  DETERMINE  THE  LOCAL  SLOPE  OF 
C  ThE  TERRAIN,  WHICH,  10GETH0R  WITH  OTHER 
C  USFR  DETERMINED  FACTORS,  DETERMINES 
C  1  HE  INTENSITY  UK  THE  REFLECTED  LIGHT, 

DIMENSION  AZ.AC  1024)  ,  BZA  (  1024) 

C  DtFINE  THE  BYTE  ARRAY  CONTAINING  THE 
C  DENSITY  INFORMATION,*  IHIS  ARRAY  wlLL  BE 
C  WRITTEN  TO  TAPE. 

C  *F ULLGW TNG  STATEMENT  ADDED  R.  ROSENTHAL  2/13/79 
DIMENSION  TBYTES  (10) 

C  FOLLOWING  LINE  ADDED  FOR  TIME  STATEMENT 
C  C.  rAYLUK.  26  AUG  1979 
DIMENSION  A 1 1 M  l  2 1 
LUG1CAL* 1  SHADE  t  1 0  24 J 

CUMMUN  /BOUNDS/XMAXB, YMAXB,XM1NB, YMTNB.ELEVB 
COMMON  /SEXY/DEDTAG, COSED, 1VSUN,ANG,C1,C2, SI, S2 

CUMMUN  /NEW/MRDR 

DATA  A  m  A  AB /  1  /  .  69o/ ,  XMiNb/ .  1 7  7  2  /  ,  YMAXB/ 2  1 . 59/ 

DATA  YM1NB/. 1772/, ELEVB/ 310,/ , 1UNIT/0/ ,KUDE/-1/ 
DATA  MODE/U/ , IPAR/O/ , 1DEN/0/ , 1CTL/ 1 28/ 

DATA  KUUNT/128/ 

1ERR=0 
MRDP=1 
PI  =  3. 14169 

C  ml.  hAVE  NUw  INITIAL!  EC.D  1AP1RN  FOR  LUN1 
C  NOW  WE  WILL  OPEN  THE  D1SKF1LES 

CALL  OSKF IL( 4,-1 , ' DBO ' , 'CACHE1 . DAT  * , DUM , 1 024 
1  , 100 , 1FLAG, 1ERR) 

C  0PEN(UN1T=4,TYPE='ULD' , ACCE5S=* DIRECT' , READONLY , 

C  1  RECUKDSIZE=493,SHAKED,ASS0C1A1EVARIABLE=1V) 

IF (lEHK.Ey.O)Gu  10  b 
C  ALL  vvRl'lt  STATEMENTS  MODIFIED  TO 
C  wRllE  10  UN  1  I  1;  I.E.,  ALL  STATEMENTS 
C  'WRITE15,'  CHANGED  Tu  wRUECl,  .  .  . 

C  CHANGES  MADE  TU  ALLOW  DELAYED  RUNNING 


v 


fortran 

IV 

-PLUS 

V02-blE  13:27:02  21-APR-81  PAGE  2 

SSLPLP. 

FIN 

/TR:BLOCKS/WH 

C 

OF  SOFTWARE.  C.  TAYLOR.  26  AUG  1979 

0017 

WRITE (l, 104) IERR.1FLAG 

0018 

104 

FORMAT ( *  OPEN  FAILURE  ON  DB1 : CACHE1 . DAT ' , 2 I 3 ) 

0019 

STOP 

C6 

CONTINUE 

0020 

6 

CALL  DSKF1U2.-1 , 'DBO ' , 'SORLF.DAT' ,DUM,512, 

1 

1024. I FLAG. I ERR) 

C 

QPEN!UNIT=9,NAME='  FOR005 .DAT* , T YPE= '  OLD ' . ACCESSs 

C 

1 

'DIRECT' .READONLY, RECORDS  I ZE  =  405, 

C 

1 

SHARED, ASSOC lATEVARlAttLE=lw) 

0021 

IF(I£RR.EO.O)GU  10  7 

0022 

WKITE(1,107)1ERH 

002  3 

107 

FORMAT  C '  OPEN  FAILURE  ON  DB1 1SDRLF.DAT ', 13 ) 

0024 

STOP 

002b 

7 

CONTINUE 

C 

NOW  SET  PARITY  AMU  DENSITY  OF  TAPE' 

C 

NUw  UEFINE  PARAMETERS 

C 

♦  NEXT 

7  LINES  ADDED  R.  ROSENTHAL  2/13/79 

0026 

WRITE! 1 , ♦ )  '  ENTER  DEVICE  AND  FILE  NAME:  " DDN : FILE . EXT ' 

0027 

WR1TEH,*)'  TO  INPUT  FROM  TERMINAL  ENTER  "Tl:"' 

C 

NEXT 

TWO  READ  STATEMENTS  ALTERED  TO  READ  FROM 

C 

UNIT 

4  IN  ORDER  TU  ALLOW  DELAYED  RUNS 

0028 

REAU(8,bbbb)IBYTES 

0029 

bS55 

FORMAT! 10 A2) 

0030 

WRITE! 1 , ♦ ) '  NUMBER  OF  CHARS  IN  FILE  NAME' 

0031 

READ(8,*)NBYTES 

0032 

CALL  ASSIGN  C4.IBYTES.NBYTES) 

C 

♦  NEXT 

3  COMMENTS  ENTERED  R.  ROSENTHAL  2/13/79 

C 

PROMPT  INPUTS  ARE  NON  FRUM  UNIT  4 

C 

INPUT 

PARAMETERS  MAY  NOW  BE  HEAD  FROM  DISK  FILES 

C 

CHANGES  MADE  TO  'READIS.M'  NO*  'READ!4,4) 

0033 

20 

CONTINUE 

0034 

WRITE! 1 ,100) 

003b 

100 

FOKMATllX, 'EN1ER  MAPSHEET  COORDINATES  OF  LOWER  LEFT-HAND 

1 

*,/,lX,'  ARtA  OF  INTEREST') 

0036 

READ ( 4 , ♦ )XLL , YLL 

0037 

wHlTE(l.lOl) 

0038 

101 

FORMAT! IX, 'ENTER  HEIGHT  AND  WIDTH  OF  ARtA  OF  INTEREST') 

0039 

READ ! 4 , ♦ ) H ,  w 

0040 

130 

FORMAT!'  ENTER  OROER  OF  WEIGHTING  FUNCTION  10  BE  USED') 

0041 

WRITE! 1 ,102) 

0042 

102 

FORMAT! IX, 'tNTER  *  PIXELS/HOFIZONTAL  LINE') 

0043 

REAO l 4 , ♦ ) NPIX 

0044 

WRITE ! 1 , 1 03 ) 

004b 

103 

FOKMATllX, 'ENTER  VERTICAL  SCALING  FACTOR') 

0046 

READ ! 4 , ♦ ) VSF 

004  1 

WRITE! 1 , lub) 

0048 

106 

FORMAT! IX, 'ENTER  0  FOR  LAMBERTS  LAW,',/, IX, 

1 

'1  tOR  THE  L0MMEL-SEEL1GER  LAw ' ) 

0049 

READ  t  4 , ♦ ) LAW 

OObO 

WRITE! 1 ,10b) 

00b  1 

lob 

FURMAl ! '  ENTER  ANGLE  UF  ELEVATION  OF  LIGHT ,',/,' 

1 

DIRECTION  UF  LIGHT  10=FKUM  N,90  FRUM  E)',/, 

1 

'  AZIMUTHAL  VARIATION') 

O0b2 

READ! 4, ♦)EL1 , AN1 .KVlEwl 

00b3 

WRirt!l,131) 

4 
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SSLPLP 

.FTN 

/ TRjBLOCKS/wR 

0054 

131 

FORMAT! IX, 'RELIEF  CONTOURS?!*! , / , CONTOUR 

1  INTERVAL  CM)' 3 

0055 

READ(4,») IRE LCN, ICON 

0056 

1VSUN=0 

C  1ULL0W1NG  3  LINES  ADDED  FOR  DCMNTN  PURPOSES 

C  C. 

TAYLOR.  26  AUG  1979 

0057 

CALL  TIME(ATIM) 

0055 

WRl T£ (1,1343! AT1M(1JKL 3, 1JKL*1 ,23 

0059 

134 

FORMAT ( IX , 2A4  3 

0060 

IF(RV1EW1.GT.1.31VSUN*1 

OObl 

AN  1 =ABS C  AN  1 3 

0062 

AN*90 . “AN  1 

0063 

EL=(EL1*3. 141593/180. 

0064 

AN*(AN*3. 141593/180. 

0065 

AN G= ((135. *3.141593/180. 3-AN 

0066 

RVltW=RVlEWl*Pl/360. 

0067 

R VIEW* (P 1-2. *RVIEw 3/2. 

C  NOR 

DEFINE  PARAMETER-DEPENDANT  VARIABLES 

0065 

DELTA=W/FL0AT(NP1X3 

0069 

CNVRT=0. 000787401b 

0070 

CNVRT*1./CNVRT 

0071 

1F(1RELCN.EU.13VSF=1AN(EL3*CNVRT*(DELTA/IC0N)*VSF 

0072 

DELTAP=DELTA/(((5.E-43*100./2.543*9.3 

0073 

DELTAG=(DELTA*50000.3* (2.54/100.3 

0074 

NPTS*NPIX+ 1 

0075 

XEND=XLL+W 

00/6 

LSTRW=H/DELTA 

C  *FOLLUWING  LINE  INSERTED  R.  ROSENTHAL  16-FEB-79 

30/7 

NUMRWS*LSTKW+ 1 

3078 

DELS(3R*DELTAG**2 

3079 

YCUR=YLL+H 

C  HOI* 

PRECISE  ARE  THE  FOLLOWING? 

3080 

Cl=COS(-RVIEW+3.*PI/4. 3 

3081 

C2*COS(-RVIEW-Pl/4.3 

3082 

Sl=SlN(RVIEW*3.*Pl/4.3 

3083 

S2*SIN(RVlEW-Pl/4. 3 

3084 

SY*COS(EL3*SIN(AN3 

3085 

SX=COS(EL3*COS(AN3 

3086 

SZsSIN (EL  3 

308  / 

COSEL=COS (EL  3 

C  ESTABLISH  DENSITY  SCALING  FACTOR 

C  ASSUME  DMAX*1 2  7  CORRESPONDS  TO 

C  TO  DENSITY  OF  2.3 

C 

DSCL* 1 27 . /2 . 3 

3088 

WRITE! 1,111) 

3089 

111 

FORMAT ( '  ENTER  DSCL  (55.23  *3 

3090 

RE AD ( 4 , *  3  DSCL 

3091 

115 

FORMAT ( *  ENTER  1  TO  DUMP  ELEVATIONS' 3 

3092 

WRITE(6,1123XLL,YLL,H,W 

3093 

112 

FORMAT  C  1XLL,  YLL=l  *,F7. 3, ',*,F7. 3,  *'>,«-  *,F7.3»',',F7. 

3094 

WRITE! 6 , 11 33NPIX, VSF,LAW,MRDR 

3095 

113 

FORMAT ( '  NP1X=',13, *  VSF=',F7.3  ..A X* * , i  ■ , ' MRDR*  ',133 

3096 

WRITE! b,l 143  ELI, AN  1, DSCL, R VIEW 1,NUMKWS 

3097 

114 

FORMAT ( '  EL=*,F7.3, *AN*',F8.3, ’DSCL* ' , F7 . 3 , ’SVIEW*' , 

1F8. 2, 'NUMBER  OF  ROWS* '  ,  1 4 , // 3 

C  * ABOVE  3  LINES,  ADDITION  TO  WRITE  STATEMENT  ADDED  R.  ROSENTHAL 

i 
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•'OK  IRAN  1V-PLUS  V02-blE 
5SLPLP.ETN  /TR  :  BLOCKS/NR 

C  ESTABLISH  DO-LUUP  TO  PROCESS  DATA 


)098 

UU  1000  lKUw=0  , LSTRw 

)099 

TCUR=TCUR-DELTA 

)100 

IFURELCN.EO. 11G0  TO  132 

>101 

CALL  SLPSCXLL, *C UR , XEND , * C UR , NP 1 X , AZA , BZA , DLN ) 

)  1 02 

GO  TO  133 

510  3 

132 

CALL  RCSLPULL,  *CUR,XEND,  TCUR  ,NPIX,  AZA.bZA 

1 

,DLW, ICON , UELTAP ) 

)  1 04 

133 

CONTINUE 

)10S 

1 F (LAW . Ey . 1 ) GO  TO  11 

>106 

DO  13  1P1X=1 ,NP1X 

)  1 0  7 

AZ=AZA(1P1X)*DELTAP 

)  1  0  8 

BZ=BZA( IP1X1 4DELIAP 

)  1  09 

AZ  =  AZ*  VSE 

)  1 1  0 

BZ=8Z*VSF 

>111 

CALL  SXS* ISX.Sl ,AZ,BZ) 

>112 

BEG=-SX*AZ*UELTAG-Sy*DtLTAG*BZ4DELSUH*S2 

)  1 1  3 

D1S=S0RTU AZ*UEL1AG)**2+IDELIAG*BZ)**2+ (DELSUR**2)  ) 

>1  14 

C0S1 =BEG/D IS 

C  UPAC1T1  =  1/10  ,  DENSITY =L0GC0PAC1TX  )  ,  i  =  10CQSl 

C  NOTE 

:UENSlTy  MAY  HAVE  TO  BE  CHANGED 

'US 

IE  ICOSI.LI. l.E-S)COSl=. 00001 

Ulb 

SHAD  =  ALUG10t 1 ./COS1  ) 

HI  / 

StlAU  =  SHAU*USCL 

H18 

IF (SHAD. GT. 127 . )SHAD=127. 

>119 

ShADEC 1P1X)=SHAD 

’  1  2  0 

13 

CONTINUE 

■121 

GO  l'U  lbuu 

C  No  ft 

DEAL  «*UH  THb  LOMMtL  SEtLiGER  CASE 

■12^ 

1 1 

CONI 1NUE 

C 

LIFE ERENT1 ATE  BETWEEN  EVEN  AND  ODD  HOwS 

‘12  3 

DO  19  1P1X=1,NP1X 

'124 

AZ=AZA(1P1X)*DELTAP 

'12b 

BZ=BZA  IIPIX) *0ELTAP 

12b 

AZ=AZ*VSF 

•12  1 

BZ=BZ*  VSF 

'128 

CALL  SXSUSXrS*  ,AZ,BZ) 

129 

BEG=DELTAG*C-SX*AZ-Sy*BZ)+DELSQR*SZ 

1  30 

D1S  =  SQRTU AZ*DELTAG)*4  2+  CBZ*DELTAG) **2+ (DELSyR**2) ) 

'111 

CuSE=DELSyR/0 Is 

•132 

C0S1=BEG/U1S 

1J1 

IE (CUS1.LT.1  ,  E-b)C  US  1  =  .  00001 

134 

smau  =  i ./ c i .  + 1 cose /cos n ) 

lib 

BMAD=  C ALOGIO ( 1 ,/SHAD) ) *DSCL 

■lib 

IE (SHAD.LT.O. )ShAU=0. 

'13/ 

IE (SHAD.G1 . 127 . )SHAD=127. 

•lie 

SHADEl IP1A j=SHAD 

■139 

19 

CON  TINUE 

140 

1  bOO 

CONTINUE 

C  NL'w 

WRITE  IT  uUl  TO  DIce 

141 

JKUw=  IHUw+  1 

142 

CALL  DSKTKM.2,2,1eKK,JKUw,NRES,SHADE, 

1 

0 ,  l  DUNE ) 

143 

IE  UERH.Ey.03GU  lu  lb 

144 

wRITEC  1 , 1 08) 1EER 

14b 

lob 

FURMAU'  DSETRN  F  A 1  LURE  :  '  ,  I  3  J 

OKTkAN  IV-PLUS  V02-blE  13:21:02  21-ARR-bl 

5LFLP  .  !•  IN  /TR:  BLOCKS/wR 


14o 

5  TOP 

147 

lb 

CONTINUE 

148 

1000 

CONTINUE 

C  WHilt 

AN  END  01  FILE  MARKER 

149 

1 F  INFIX. Gi.lOOJGO  TO  1501 

1  b  0 

DO  1502  JFlL=l,aROW 

Ibl 

CALL  DSKl'RN (2/1 > IERK,JFIL,NRES»SHADE, 

1 

0 , 1DONE ) 

lb  2 

lFllERK.EO.OJGO  Tu  10 

1  b  3 

wK I TE ( 1 t 108) 1EHR 

i.  b  4 

51  OF 

lbb 

CONTINUE 

ISO 

CALL  LP (SHADE ) 

lb  7 

1502 

CONTINUE 

lbri 

1501 

CONTINUE 

1  b  9 

CALL  11ME1AT1M) 

loO 

WRITE (1,134)1  AT 1MUJKL)  , 1JKL=1 ,2) 

1  to  1 

ivRITEC  1  ,  1  09) 

102 

109 

FORMAT ( *  ANOTHER  IMAGE : ENTER  1») 

103 

READ(4,110)IANS 

1  o4 

110 

FORMAT ( 14) 

lob 

If  l  IANS.EO.1 )GO  TO  20 

lbb 

CALL  USKI  1 Ll 4 , -2 ,  ' DfaO ' ,  'C ACHE  1 . DAT ' , DUM ,  1 024 , 1 00 

1 

,  1FLAG / TERR) 

107 

CALL  0SK1  1U2.-2,  'DbO*  ,  '  SDRLF  .  DAT  '  ,  DUM  ,  5 1 2 , 1 024 

1 

,  1FLAG, 1  ERR ) 

lob 

STOP 

1  o9 

END 
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UKTKAN  1V-PL0S  VU2-Slt 
SLPLP  •  ►  TN  /FRsBLOCRS/nH 


RUGHAM  SECTIONS 


UMBER 

NAME 

SIZE 

ATTRIBUTES 

1 

SCUUt 1 

0U41b4 

1082 

K«,i,CUN,LCL 

2 

SPDATA 

000106 

99 

Rn.D.CQN.LCL 

i 

S 1DAT  A 

0U1574 

44b 

RNrD,CQN,LCL 

4 

5  VARS 

022112 

4709 

RM , U ( CUN , LCL 

5 

STEHPS 

000014 

6 

RN,D, CON, LCL 

b 

bUUNUS 

000024 

10 

Hw , D , OVR , GbL 

/ 

SEXY 

00001b 

lb 

R*,D,OVR,GBL 

8 

NEN 

000002 

1 

Rk,D,OVR,GBL 

A  RUBLES 

NAME  TYPE 

ADDRESS 

NAME 

1XPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

1  YPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

AN 

R*4 

4*022142 

ANG 

R  *4 

7-000012 

AN  1 

R*  4 

4-022124 

AZ 

R*4 

4-022244 

BEG 

R*4 

4-022254 

Bid 

K*4 

4-022250 

ChVHT 

R*  4 

4-022162 

COSE 

R*4 

4-022274 

COSEL 

k*4 

7-000004 

COS1 

R*  4 

4-022264 

Cl 

R  •  4 

7-000016 

C2 

R*4 

7-000022 

DELSQR 

R*4 

4-022204 

DELTA 

R*4 

4-022156 

DELTAG 

R*4 

7-000000 

DEL TAP 

R4  4 

4-022166 

D1S 

k*4 

4-022260 

DLN 

R*4 

4-022216 

DSCL 

k  *4 

4-022230 

DUM 

P*4 

4-022060 

EL 

H*  4 

4-0221 4b 

ELEVB 

R*  4 

6-000020 

ELI 

R*4 

4-022120 

H 

k*4 

4-022100 

IANS 

1*2 

4-02211 0 

ICUN 

1*2 

4-022136 

1CTL 

1*2 

4-022046 

IDEN 

1*2 

4-022044 

1DONE 

1*2 

4-022104 

1ERR 

1*2 

4-022052 

IE  LAG 

1*2 

4-022064 

1JRL 

1*2 

4-022140 

1PAR 

1*2 

4-022042 

1P1X 

1*2 

4-022242 

1RELCN 

1*2 

4-022134 

1  HUN 

1*2 

4-022214 

1UN1T 

1*2 

4-022014 

1VSUN 

1*2 

7-000010 

Jt  XL 

1*2 

4-022106 

JRON 

1*2 

4-022100 

KOBE 

1*2 

4-0220 J6 

KOUNT 

1*2 

4-022050 

LAN 

1*2 

4-022116 

L5THW 

I  *2 

4-022200 

MODE 

1*2 

4-022040 

MHUH 

1*2 

8-000000 

MBYTES 

1*2 

4-022066 

NP1 A 

1*2 

4-022110 

NPTS 

1*2 

4-022172 

NRES 

1*2 

4-022102 

NUNHwS 

1*2 

4-022202 

PI 

H*4 

4-022054 

HV1EN 

H*4 

4-022152 

KV1EN1 

R*4 

4-022130 

SHAD 

R*4 

4-022270 

Sa 

H*4 

4-022220 

SY 

R*4 

4-022214 

SZ 

R*4 

4-022224 

SI 

R*4 

7-000026 

S2 

R*4 

7-000012 

VSF 

R*4 

4-022112 

M 

R*4 

4-022104 

XENO 

R*4 

4-022174 

XLL 

R*4 

4-022070 

XMAXB 

R*4 

6-000000 

AMI  Nb 

H*4 

6-000010 

1  CUR 

R»4 

4-022210 

ILL 

R*4 

4-022074 

YMAXB 

R*4 

6-000004 

YM1NB 

R*4 

6-000014 

VRHAYS 

NAME 

TYPE 

ADDRESS 

SIZE 

DIMENSIONS 

AT1M 

R*4 

4-020024 

000010 

4 

(2) 

AZA 

R  *4 

4-0 00000 

OlOUOO 

2048 

(1024) 

8ZA 

R*4 

4-010000 

010000 

2048 

(1024) 

1HYTES 

1*2 

4-020000 

000024 

10 

(10) 

SHADE 

L*1 

4-020014 

002000 

512 

(1024) 

-AbELS 


LABEL 

ADDRESS 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

6 

1-000116 

7 

1-000220 

It 

1-001060 

11 

*• 

15 

1-001560 

16 

1-003714 

19 

*• 

20 

1-000406 

too* 

1-000116 

101' 

3-000210 

102' 

J-0O0106 

101' 

1-000150 

104' 

1-000000 

105* 

1-000510 

106' 

1-000412 

107' 

1-000046 

108' 

1-001212 

109* 

1-001240 

110* 

3-001212 

111' 

1-000750 

112' 

1-000776 

111* 

1-001046 

114* 

1-001116 

115' 

t* 

110' 

** 

111' 

i-000662 

112 

1-002462 

111 

1-002500 

134' 

1-000742 

1000 

** 

1500 

1-001464 

1501 

1-001746 

1502 

•  • 

5555* 

1-000112 

f'UKlNAN  N-m»b  iiiiliu/  P  AiiL  / 

aSLPbP.Hh  /lHJt>LuCAJ>/*k 

KUuCHohS  AM*  SUBHl)UT  I  h  th  ktfr  LklnC  t  U 

Aa*iV.n  li&M  IL  USKTh.%  LP  pC&LP  &LV&  SAM  1 1 K k.  $AU»iO  $COS  SSIN  SSyhl  STAK 

[01  Al>  5PACt  ALLUC  A  [fc.L>  s  0J07ug  blob 
,  l>P.Li»r=i5LkLp 


1 3:28 :o0 
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FORTRAN  1V-PLLS  V02-31L 
SLPS.Fli'.  /TP  :  BLOC  RS/ wR 


U0U1 
0002 
0003 
0004 
000b 
OOOU 
000  / 
0  Oo  o 
0009 
0010 
OO  1  1 
0012 
001  3 

0014 
001b 
0  0  1  o 

0017 

0018 

0019 

0020 

0021 

0022 


C  THIS  SUBROUTINE  CALCULATES  THE  X,Y  POSlllUNS  UP 

C  ALL  PO 1  MTS  A  LG  i*G  A  LOS  PROF  ILL  AT  *HICFi  THt 

C  ELEVATluN  IS  IU  BE  CALCULATED 

C 


C 

C  PROGHAM  bl  CTRUS  C.  TAILOR 


C  AUTU-CAKIG  bR 

C  f DL , USAETL 

C  TDL.UASETL 

C  23  AUG  1977 

C 


C 

C 


SUBROUTINE  SLPSCX1 , U , X 2 , X 2 , NPTS , AZ A , BZ A , DLN ) 
DIMENSION  AC A  1 1 1 , b  ZA  t  1  } 

COMMON  /HUUNDS/XMAXB, YMAXB , XM1NB , KMlNb , ELEvB 
F'N  PTS 1  =  F  LO  AT  (  N  RTS  *  1  ) 

DLN=CS0R1  QX2-XU**2  +  1 12-U  )  ♦  *  2  )  )/F  NP1S1 
DX=IX2-X1 l/F wPTSl 
UY  =  U2-<1  )/FNPTSl 
SN  =  Dl'/DLN 


DO  100  1  =  1, NPTS 
K I M 1 =  E  LG AT (1-1  ) 

X=X1+EIM1*DX 
K  =  Y  1  +  F  1 M 1  *  D 1 

1  F’CX.LT,  XMAXb  .AND.  Y.LT.YMAXB 
1  .AND.  X.GT.XMlNb  .AND.  Y.GT.lMlNB)  GU  TO  SO 
AZA(1J=0. 
bZA(l)=0. 

GO  TU  1  Oo 


bo  CALL  ALU  X,  i  ,Z,SN  ,  AZ,BZ,  1  ) 

AZAll)=AZ 
6ZA( I )=BZ 
100  CONTINUE 

RETURN 
END 


r  UHTKAM  l'.-t-Loi  *02*blt 
SLHS.j-fN  /lh;ttlUv.'hi>/*H 


PHUijk AM  SLCT1US5 


SAht 


ScuULl  o  0  0  b 1 z  lob 

SPL'Al  A  U00004  2 

$  iOATA  O0U044  10 

SVAHS  00  00  b  2  21 

STtHlo  vju0uO2  1 

b  U  u  N  0  i>  v0U02-i  l  w 


b», 1 ,CUN ,LCL 
f-  rt  ,  0  /  CLS  ,  LC  L 
H* ,L ,CuN, tCL 
P*,D,C0N.LCL 

rn.L.uU,  u!*L 


HAMfc  ltPfc  AvOPtSS 


ItPL  A  l.  L  r  t  b  •; 


‘<AMt  ril-L  AL^f<ta.S  .  A'r 

A c  b*4  4*u00J42  d2 

tLc.Vb  b»4  o-y0ou20  1  IVl 

Sf*  h*4  4-0UJ014  a 

A2  Mi  fju  i 

1 2  b  •  4  1-jbi-^lv* 


AMt  IiPt 


[  1 1  t  Auu.ht.Si>  fiAVt  it  Pi  At-  of- to* 

H*4  4-0oC04b  uLU  h*4  i-JuoQ*>j»  uA 

b*4  4-0Q0O2*  iNttSl  b*4  4-vJouuU  1 

h  *  4  4“0vuv/<b  A  S  A  <  o  b  »  4  o*.  jOUuv  Am  1  Si* 

b  •  ■»  4*»jO'.J<  i**AAr  »*»4  o-.OHwi 


O-V joOl » 
b  -  u.  ■-  -  . :  4 


it-A  cv.Jvl. 

>i A  b«4  1-O000io 


ALJ  :.>vrl 


1  -  »  Aw  JPACi  Ail..  .AT 
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FORTRAN  1V-PLUS 

V02-51E  13:28:21  21-APR-81 

ALSLP.FTN 

/TR: BLOCKS/ WR 

C 

THIS  SUBROUTINE  ACCEPTS  THE  X,Y  COORDINATES  OF 

C 

A  POINTON  THE  CACHE  MAP  SHEET,  AND  RETURNS 

C 

THE  Z  VALUE  AT  THAT  POINT 

*•* 

V. 

c 

SUBROUTINE  BY  CYRUS  C.  TAILOR 

c 

COMPUTER  SCIENCE  SPECIALIST (TRAINEE) 

c 

AUTO-CARTU  bR 

c 

TDL , USAETL 

c 

FORT  BELVOIR,  VA 

c 

c 

23  AUG  1977 

C********************************************.*** 

c 


0001 

SUBKUUTINt  ALT ( X ,  Y ,Z,SN,AZ,BZ, 1ASCD) 

0002 

INTEGER  C0EF1 

0003 

LOGICAL* 1  C0EF2 

0004 

DIMENSION  CO£Fl(9O,40) ,BUF(512) ,COEF2(90 ,40,3) 

000b 

DIMENSION  FIT1 (4) , F1T2 ( 4) , F1T3 ( 4 ) ,FIT4(4) 

000t> 

COMMON  /bOUNDS/XMAXB, YM AXB , XM 1 NB , YM I NB , ELEVB 

0007 

COMMON  /NEN/MRDR 

0008 

1 

IFCX.LT. XMAXB  .AND.  Y.LT.YMAXB 

.AND.  X.GT.XM1NB  .AND.  Y.GT. YMINB)GO  TO  2077 

0009 

Z=ELEVB 

0010 

AZ  =  0. 

0011 

BZ  =  0. 

0012 

RETURN 

0011 

2077 

CUNTINUE 

0014 

DATA  IFIRST/O/ 

001b 

1FUFIRST.GT.0)  GO  TO  111 

OOlo 

IFIRST=1 

001  / 

1SAVE=0 

0018 

JSAVt=0 

0018 

BUROEH=t (b.E-4)*l00./2.b4)*». 

OO20 

F 1 1= ( BORDER/ 8 . ) *9 . 

0021 

00  112  K=1,9Q 

0022 

CALL  D3KTRN ( 4 , l , 1  ERR , K , NRES , BUF , 0 , 1 DONE ) 

002  3 

lF(lEHR.GT.O)  GO  TO  9999 

0024 

DO  114  J=1 ,40 

002b 

L=4*(J-1 )tb+328 

002t> 

C0EF1  U,  J)=BUF (L) 

00^  / 

C0EF21K,  J,  1  )=BUHL+1 ) 

00^8 

COEF2(K,J,2)=BUh (L+2) 

0029 

COEF2U,J,3)=ttUF  1L*3) 

0030 

114 

CONTINUE 

0031 

112 

CONTINUE 

0032 

111 

CONTINUE 

0033 

J= IN I ( l X-BUKUER ) /F I T ) ♦ 1 

0034 

1=INT( ( Y -BORDER) /FI T)+l 

003b 

Jl=Jtl 

003b 

lMOD=l-82 

0037 

IFU .EO.iSAVE. AND.J.EU. JSAVE)  GO  TO  80 

0038 

1FUM0D.LT. 1)  GO  TO  9998 

0039 

1KCJ.GT.90)  GO  TO  9998 

0040 

1B=( IMOD-l )*4 

4 
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FORTRAN  IV-PLUS  V02-51E  13:28:21  21-APR-81 

ALBLP.FTN  /TR : BLUCKtj/WR 


0041 
0042 
0043 
0044 
0045 
004b 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
005b 
005  7 
0058 
0059 
OObO 
OObl 
U0b2 
00b3 
0  Ob  4 
00b5 
OObb 
0067 
00b8 
00b9 
00/0 
0071 
00/2 
007  3 
00  74 
00  / 5 
00  7b 
007  7 
00  / 8 
00/9 
0080 
0081 
0082 
0083 
0084 
0085 
008b 

00«  7 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
009b 


Flri(l)=CUEFl(J,IMUD) 

F1T2(1)=C0EF1 (J,IM0D+1) 

FIT3(1  ) =CUEF 1  (J1  , 1  ROD  7 
F1T4C 1 3=C0EF1 ( J1 , IMUD+1 ) 

DO  75  1P=2 , 4 

11=1B+1P 

I2=IB+4+lP 

FIT1(1P)=C0LF2(J,1MQD,1P-1) 

FIT2(lP)=COEF2CJf 1MUD+1  ,1P-1) 

F1T3  C IP) =CUEF  2  C J 1 , 1M0U  ,  IP- 1 ) 

F1T4CIP) =C0EF2  C J 1 , IMUD+1, IP- 11 
75  CONTINUE 

80  CONTINUE 

XC=FL0AT(J-1  )*F1T+B0RUER 

XL=(X-XC)/F1T 

XC=KLOAT C 1-1 )*F1 1 ♦BORDER 

xl=(x-xc)/ht 

XLC  =  XL-1 . 

XLC=XL-i  . 

Z1=FIT1(1)+F1T1(2)  *XL  ♦  CF1T1  l  3  ) +F11 1 ( 4 ) *XL)  *  XL 
Z2  =  FIT2(  1)+FIT2(2)*XL  ♦  (F IT  2 C 3 ) +FIT2 ( 4 ) *XL )  ♦  XLC 
Z3=F1T3 ( 1 ) +F1T3 ( 2 ) *XLC  ♦  CF1 13 C 3 ) ♦  * II 3 l 4 ) *XLC )  ♦  XL 
!£4=F1T4  (  1  )  +F1T4  (  2  )  *XLC  ♦  (F 114 l 3 ) +F 1T4 ( 4 ) *XLC )  ♦  XLC 
XL2=ABS(XL4*  (MRDR+1 )  ) 

XLC2=ABS(XLC** (MRDR+1 )  ) 

XL2  =  ABS(XL^*(MRDR  +  1 ) ) 

XLC2=ABS(XLC**(MRDR+1) ) 

IFUASCO.ty.OlUU  10  200 
AZ 1 =F I T 1 ( 2 ) +K 1 11 l 4  3  *  X L 
AZ2sFlT2C2)+FlT2(4)*XLC 
AZ3sFIT3(2)+FIT3(4)*XL 
AZ4=F1T4(2)+F1T4(4)*XLC 
BZ1=FIT1(3)+F1T1 (4)*XL 
BZ2=F1 1 2131+ F 112(4)* XL 
BZ3=F 1 1  31  3)fH  13(4)  *ALC 
BZ4=FIT4(3)+F1T4(4)«XLC 
200  CUNT  l  NUE 
XLC=-XLC 
XLC=-XLC 

wl=(XLC2*(-2.*ALCt3.))*(XLC2*l-2.*XLC+3.  )) 
w2=(XLC2*(-2.*XLCt3.) )*(XL2*(-2.*XL+3. )  ) 
w3  =  (XL2*(-2.*XL+3. ))*(XLC2*(-2.»XLC  +  3. )  ) 
«k4=(AL2*(-2.*XL+3,  )  )*(YL2*(-2.*XL  +  3.  )  ) 

1F( lASCD.bU.O/GU  10  205 

AOw 1 =-6 . *  XLC  * ( 1 .-XLC) ♦ ( XLC 2* (-2. *XLC+3.  )  ) 

ADw3  =  b.*XL*l l.-XL)*(XLC2*l-2.*XLC*3.  )  ) 

A0w2  =  -b.*ALCMl.-ALC)*llL2M-2.*XL  +  3.)) 

A0w4=b.*XL*(l .-XL)*(XL2*(-2.*XL*3. ) ) 

BDwl=-b.*XLC*( l.-XLC)»(XLC2*(-2.*XLC  +  3.  )) 

BDw2  =  b.*XL*l  1  .-XD*(XLC2*l-2.*XLC  +  3.  ) ) 
BDw3=“b.*XLC*(l.“XLC)*lXL2*(“2.*XL+3,)) 

BD«4  =  b.ML*ll.-XL)*(XL2*l-2.*XL  +  3.)) 

AZ=Z1 ♦ADwl+Z2*AD*2+Z3*ADw3+Z4*ALw4 
A2=AZ+AZl*fcl+AZ2*w2+AZ3*w3+AZ4*w4 
BZ  =  Zl*BDwl+Z2*BDw2  +  Z3*BU«3  +  Z4*BDi»4 
BZ=BZ+BZl**l+BZ2**2+BZ3**3+bZ4»*4 


FUHTKAN  lv-PLUS  V02-51E  13:2o:21  21-APR-81  PAGE  3 

AL6LP.F1N  /  TR  :  BLOCKS/ ivH 


0097 

205 

Z=Zl*MltZ2*ri2+Z3*wJ+Z4*ft4 
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CONTINUE 
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STOP 
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RETURN 
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END 
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FORTRAN  1V-PLUS  V02-51E 
LPPER.FTN  /TR:BLQCKS/WR 

C  FILE  NAME  -  LPPER.FTN 
C 


0001 

SUBROUTINE  LP(SHAL)E) 

0002 

LOGICALM  SHADEd),CHARll2) 

0003 

LOGICAL*  1  PRNTUOO) 

0004 

DATA  CHAR/'  ',  '1', 

1 

*A','4*,'w'/ 

C 

WRITE (5, 51 ) (SHADE (M) ,h=l,32) 

0005 

51 

FORMAT ( IX, 3203,/) 

000b 

DU  10  1=1,3 

0007 

DO  50  K=1 ,100 

0008 

IF (SHADE ( K ). LT. 0. ) SHADE (K)= 127 

0009 

PRNT(K)=CHAK( 1 ) 

0010 

50 

CONTINUE 

0011 

DO  20  J=l,100 

0012 

IF'  (  SHADE  (o’ )  .  GT .  6  )  GO  TO  21 

0013 

IF ( I . NE. 1 ) GO  TO  20 

0014 

PKNT ( J )=CHAR ( 1 ) 

0015 

GO  TO  20 

0016 

21 

IF(SHADE(J).GT.9)GO  TO  22 

0017 

IF(I.NE.l)GO  TO  20 

0018 

PRNT ( J  7 =CHAR ( 2 ) 

0019 

GO  TO  20 

0020 

22 

IF (SHADE! J ) ,GT, 1 3 )GU  TO  43 

0021 

1FCI.NE.11GU  TO  20 

0022 

PRNT(J7=CHAR(37 

0023 

GO  TO  20 

0024 

43 

IFISHADECJ7.GT.157GO  TO  23 

0025 

IF ( I .NE. 1 }GU  TO  20 

0026 

PRNT(J7*CHAR(47 

0027 

GO  TO  20 

0028 

23 

IF(SHAOE(J).GT.19)GO  TO  24 

0029 

IF (1.NE.17GO  TO  20 

0030 

PRNT(J7=CHAK(57 

0031 

GO  TO  20 

0032 

24 

IF(SHADE(J).GT.24  7  GO  TO  25 

0033 

iFd.NE.17GO  TO  20 

0034 

PRNT( J)=CHAR(6  > 

0035 

GO  TU  20 

0036 

25 

1F(SHAD£(J7.GT.28)GU  TO  26 

0037 

lFd.NE.17GU  TO  20 

0038 

PRNT(J7*CHAR(77 

0039 

GO  TO  20 

0040 

26 

IF(SHADE(J).GT.33)GO  TO  27 

0041 

IFd.NE.llGO  TO  20 

0042 

PRNT(J)=CHAH(8) 

0043 

GO  TO  20 

0044 

27 

IF(SHADE(J7.GT.387GO  TO  28 

0045 

IF(l.EQ.37GO  TO  20 

0046 

IFCI.EQ.l JPRNT(J) =CHAR (9 ) 

0047 

IFd.Eg.21PRNT(J)=CHAR(2) 

0048 

GO  TO  20 

0049 

28 

IF(SHADE(J},GT.44)GO  TO  29 

0050 

IFd.EQ.37GO  TU  20 

0051 

IFCI.EQ.l )PRNT(J7  =CHAR( 10 ) 

0052 

1F(I.EQ.23PRNT(J3=CHAR(5) 
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LPPEH.Fl'N 

/ rK:oL0CKS/*H 

0053 

GU  ro  20 

00  54 

29 

1FCSHADEC  J)  .Gr. 51  )  GO  IU  30 

0055 

IFU.EO.33GO  TU  20 

00  56 

IF  11 .to. l)PHNT(J)=ChAKC10) 

00b  7 

IF  11.  to. 21 PPN1 (J)=CHAK(5) 

0058 

GU  TO  20 

005V 

30 

1FCSHAD£CJ).GT.58)GU  TO  31 

0060 

it  Cl.ty.33GO  10  20 

0061 

1 F (  1  .t'0. 1  } PR  WT  C  J  3  =CHAH (10) 

0062 

11  Ci.tQ.2)PKM'CJ)=CHAKC8) 

0063 

GO  TO  20 

0064 

31 

IF (SHADE CJ) . G 1. 66 3 GU  TU  32 

0065 

it  Cl  .EQ.3)PHNTCJ)=CHAt<C4) 

00b6 

IF  Cl  ,EQ. 1 )PKNTCJ)=CHAKC6) 

00b7 

IF  Cl .EQ.2  3PHN1 CJ )=CHAK( 10) 

U068 

GO  TU  20 

0069 

32 

1FISHA0ECJ) .GT . /e)Gu  TU  33 

0070 

PRNTCO)=CHARCU  3 

0071 

IFC l.ty. 1 3PKNTCJ )=CHAKC 10) 

0072 

IF  c 1 . ty . 2  3  PkNT  C J  3 =C HAH ( 9 ) 

0073 

GO  TU  20 

0074 

33 

PKN1 (J)=CHAkC 12) 

0075 

IF  Cl .tO. 1 3PHN1 CJ)=ChAKC 10) 

0076 

lFCI.ty.2)PHNTCJ)=CHAKC5) 

00  /  / 

20 

CUNT1NUE 

00/8 

WHITE  (6,50  0  3  CPHMlU),L  =  l,100) 

0079 

500 

(■UHMATC  *  ♦  *  ,1X,  loOAl) 

0080 

10 

CON'l  INUt 

0  0  8  1 

*HITE(6,501) 

0082 

501 

»•  UHMATC  IX) 

008  3 

HtTUHN 

0084 

END 

rv 
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FORTRAN  1V-PLUS  V02-51E 
SXSY.FTN  /TR:BLOCKS/WR 


0001 
0002 
000  3 
0004 

0005 

0006 

ooo; 

0008 

0009 

0010 

0011 

0012 


001  3 
0014 
0015 
0016 

001  I 
0018 
0019 
0020 

0021 

0022 
002  i 
0024 
0025 
0026 
002  7 
0028 


C  THIS  SUBROUTINE  IS  DESIGNED  TO  VARY  THE  AZIMUTH  OF  THE 
C  'SUN'  TO  STRENGTHEN  THE  DETAIL  IN  SHADED  RELIEF  IMAGES 
C  CREATED  bY  PRUGRAMS  SHADE. FIN  AND  SHADLP.FTN. 

C  REfERENCE:  P.  YUEL1,  'SOME  REMARKS  ON  THE  COMPLETION 
C  Of  THE  ANALYTICAL  HILL  SADING  PROJECT' 

C  (UNPUBLISHED7-AUTO  CARTO  FILES) 

C 

C  PROGRAM  BY  CYRUS  C.  TAYLOR 

C  AUTOMATED  CARTOGRAPHY  BRANCH 

C  USAETL,  FORT  BELVU1R,  V A 

C  11  JULY  1978 

C 
C 

SUBROUTINE  SXS Y C SX , S Y , AZ , BZ ) 

COMMON  /SEXY/DELTAG,CUSEL, IVSUN,ANG,C1 ,C2,S1 ,S2 
REALM  NX, NY 
IFCIVSUN.EQ.OJGO  TO  110 
C 

NX=-AZ*OELTAG 

NY=-BZ*DELTAG 

D ISFI =SQRT  CCNX**2)  +  (NY**2)) 

If (DISF1.LT.1.E-6)G0  TO  110 

C0=NX/DISF1 

SO=NY/DISFI 

C=CO*COSIANG)-SO*S1N(ANG) 

S=S0*CUS( ANG)+CO*SIN(ANG) 

C  IN  EEfECT,  OUR  X-Y  COORDINATE  SYSTEM  hAS  BEEN 
C  RUIATED  THROUGH  AN  ANGLE  Of  ANG  RADlAwS.  NOTE 
C  THAT  THE  ANGULAR  COORDINATE  SYSTEM  USED  IN  THIS 
C  ROUTINE  AND  IN  SHADE  UR  SHADLP  IS  NUT  THE 
C  AERONAUTICAL  ANGULAR  COORDINATE  SYSTEM,  BUT  THE 
C  TRADITIONAL  ALGEBRAIC  COORDINATE  SYSTEM.  SINCE 
C  OUR  X-Y  COORDINATE  SYSTEM  HAS  BEEN  ROTATED, 

C  SX  AND  SY  MUST  BE  ROTATED  bACK  BEfORE  RETURNING 
C  TO  THE  MAIN  KUUTINE. 

C  SECTOR  I  CASE 

IF(C.GT.lCl).  UR  .S.LT. CS 1 } ) GO  TO  10 
SX=-C*C0SE1 
SY=-S»CUSEL 
GO  TO  100 
C  SECTOR  111  CASE 

10  IMC.LT.(C2).  UR  .S.GT,  IS2)  )GO  TO  20 
SX=C*COSEL 
S Y  =S  *CUSEL 
GO  TO  100 

C  SECT UR  11  CASE:  2  SUBCASES 
20  IF! (C.LT.O. AND. S.LT. 0) .UR. CC . LT . 0 . AND. S. LT . S 1 ) 

1  .UR. (S.LT.0.AND.C.LT.C2) ) GO  TO  30 
IFIC.GT.(0.7071))GU  TU  25 

sx=o. 

SY =-COSEL 
GO  TO  100 
25  SX=CUSEL 
SY=0. 

GO  TO  100 

C  SECTOR  IV  CASE:  2  SUBCASES 


FORTRAN  1V-RLUS  V02-51E 
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°°2V  30  1F(C.LT.(-0.70?1))GO  10  3s 

0030  SX=0. 

0031  sy=-cosel 

0032  GO  TO  100 

0033  35  SX=CUSEL 

0034  SY=0. 

0035  100  CONTINUE 

C  WE  MUST  NOW  ROTATE  OUR  LOCAL  X-Y  COORDINATE 
C  SYSTEM  BACK,  SO  THAT  SX  AND  SY  WILL  BE  CONSISTANT 

C  WITH  THE  MAIN  ROUTINES. 

0036  Y=SY*CUS(ANG)-SX*SINtANGJ 

0037  X=SX*C0SCANG)+SY*S1N(ANG) 

0038  SX=-X 

0039  SY=-Y 

0040  110  CONTINUE 

0041  RETURN 

0042  END 
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FORTRAN  1V-PLUS  V02-S1F. 
RCSLP.FTN  /TR:BLOCKS/wK 


0001 


0002 

0003 

0004 

000b 

0006 

0007 

oooa 

0009 

0010 

0011 

0012 

0013 

0014 


001b 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

002b 

002o 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

003b 

0036 


SUBROUTINE  RCSLPULL,  YCUR.XEND, Y  ,  NP1X,  AZA, 

1  bZA , DLN ,  ICON  ,  DELTAP ) 

C 

C  THIS  SUbRUUl  1NE  CALCULATES  ALTITUDES ,  QUANTIZES 

c  THE  ELEVAT KIN  values,  and  calculates  slopes  over 
C  A  FINE  GRID,  IN  ORDER  TO  SIMULATE  TANAKA'S 
C  RELIEF  CUN  l'QUR  REPRESENTATION  OF  TERRAIN. 

C 

C  This  SUbROUT INE  IS  RESTRICTED  TO  RECTANGULAR  REGIONS 
C  WITH  EDGES  PARALLEL  TO  1  HE  COORDINATE  AXES  OF  THE 
C  POLYNOMIAL  TERRAIN  MODEL 
C 

C  PRUGRAM  BY  CYRUS  TAYLOR 
C  AUTO-CARTU  bR . 

C  USAETL 

C  FURT  bELVOIR,  VA 

C  11  JUNE  1979 

C 

DIMENSION  AZA 11) ,BZA(1) .ELVES (2, 2) 

COMMON  /bOUNOS/XMAXB, YMAXB.XMINB, YMlNb, ELEVb 
FNPTS1 =FL0AT l NP1X* 1 ) 

DLN= ( SOR 1 ( (XEND-XLL ) **2+ (YCUH-YEND)* *2) J/FNPTS1 
DY=(YEND-YCUR)/FNPIS1 
SN=0 Y/DLN 
I ASCD-0 

UX=(XEND-XLL)/FNPTS1 

DX2=0X/2. 

X1=XLL-DX2 

X2SXLL+DX2 

Y1=YCUR-DX2 

Y2=YCUK+DX2 

C  NOTE  THAT  WE  ASSUME  THAT  YCUR=YEND,  AS  WILL  BE  THE  CASE 
C  FOR  ALL  CALLS  FROM  SSLPLP. 

C 

CALL  ALTUl,Yl,Z,SN,AZ,bZ,IASCD) 

CALL  QUAN'KZ,  ICON; 

ELVES  ( 1 , 1 j  =Z 

CALL  ALT(X2,Yl,Z,SN,AZ,bZ,lASCD) 

CALL  QUANT ( Z, ICON ) 

ELVES (2,1) =2 

CALL  ALTtXl, Y2 , Z , SN , AZ , BZ , I ASCD) 

CALL  QUANHZ, ICON) 

ELVES! 1,2) =Z 

CALL  ALT(X2, Y2, Z,SN, AZ,BZ, I ASCD) 

CALL  QUANHZ, ICON) 

ELVES ( 2 , 2 ) =Z 
DO  100  1=1 , NP1X 
IF(I.Ey.2*(l/2))GO  TO  101 

AZ=0.b*(!ELVES!2,l)-ELVESll,  1)  )♦ (ELVES! 2 , 2J-ELVES! 1 ,2) ) ) 

AZ=AZ/DELTAP 

AZAlIJsAZ 

bZ=0.b*( (ELVES (1 ,2)-ELVES(l ,t) ) ♦ (ELVES ( 2 , 2 ) -ELVES! 2 , 1 ) ) ) 

BZ=B2/UELTAP 

BZA! 1 ) =BZ 

X1=X1+DX 

CALL  ALT(X1 , Y1 ,Z,SN,AZ,BZ, 1ASCD) 
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kcslp.lin  / ruibLucKS/wK 


0037 
003B 
0039 
Q040 
0041 
0042 
0043 
0044 
004b 
0040 
004  / 
0040 
0049 
0050 
0051 
0052 
0053 
0054 
005b 
005  b 
005  / 
005s 


CALL  QUANUZ,  1CUM) 

EbVLSU  ,  1  )=Z 

CALL  ALT  CXI  ,  Y2  ,  'L ,  5N  ,  AZ ,  bZ ,  1 ASCU  ) 

CALL  YUAN! 12, ICON) 

LLVLSl 1 ,2)=Z 
00  TO  100 

101  AZ=0. 5*  CLLVe.SU  ,  1J-LLVLSC2,  U+LLVESC1 , 2 ) -LLV LSC 2 , 2  )  ) 

AZ=A2/DLLTAP 
AZACU=AZ 

tJZ=0.5*CLLVLSCl,2)-LLVLSCl,  1 ) +ELVLS l 2 , 2 ) -LLVLS C 2 , l  )  ) 

bZ=bZ/ULLlAp 

BZAC 1 )=HZ 

X1=X1 +UX 

CALL  ALTCXl.Tl , Z , SN , A2 , bZ , I ASCD ) 

CALL  OOANI CZ,lCOiO 
LLVLSC2, 1 )=/ 

CALL  ALUa1,*2,Z,SN,AZ,UZ,  1ASCUJ 
CALL  QUANT C Z , ICON ) 

LLVLS  C 2 ,2 )  =Z 
100  CONTINUE 
RLTUKN 
LND 


FORTRAN  XV-PLOS  VU2-SU 

KCSLP.EiN  /TKtbLUCKS/wR 


PRUGRAM  SECTIONS 


NUMBER  NAME 


SCOUtl  O 01400 
S1DA1A  0001 32 


S1EMRS  00000b 
bOUNDs  000024 


R», 1 ,CGn, LCL 
R« , D , CUN , LC L 
Hn.O.CUK.LCL 
P<*,D,CQN,LCL 
Rw , U.UVR  ,  GbL 


NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS  N AML  TYPE  ADDRESS 


NAME  TYPE  ADDRESS  NAME  TYPE  ADDRESS 


NAME 

TYPt 

ADDRESS 

NAME 

TYPE 

ADDRESS 

NAME 

lYPt 

ADDRESS 

NAML 

TYPE 

ADDRESS 

NAME 

TYPE 

ADDRESS 

Aid 

PM 

4-0000  It 

B  L 

R  M 

4-000102 

DLL  I AP 

R*4 

E -OOD024* 

DLL 

R  *4 

p-000020* 

DX 

H«4 

4-000042 

0X2 

R*4 

4-000046 

DY 

R*4 

4-OUOOlO 

LLEVb 

R*4 

6-000020 

E'NPTSl 

R*4 

4-000020 

1 

1*2 

4-000 10b 

1ASCD 

1*2 

4-000040 

1CUN 

1*2 

E -000022* 

NP1X 

1*2 

f-DUUOl 2* 

SN 

H*4 

4-000014 

XEND 

R*4 

E -000006* 

XLL 

R*4 

E -000002* 

XMAXb 

R*4 

b-OGOGOO 

AMlNb 

R*4 

6-000010 

XI 

R*4 

4-0000S2 

X2 

R*4 

4-000066 

1 

R  *4 

E-000010* 

YCLR 

R  •  4 

E‘ -  000004* 

YEND 

R  *  4 

4-000024 

YMAXb 

R*4 

6-000004 

YMINB 

R*  4 

6-000014 

Y 1 

H  *4 

4-000062 

12 

R  *4 

4-0000bb 

l 

KM 

4-000072 

TYPE 

ADDRESS 

S14E 

DIMENSIONS 

H  •  4 

E -000014* 

DD00D4 

2 

i  i ; 

R*4 

E -000016*  000004 

2 

m 

R  *  4 

4-0000OU 

000020 

6 

C2 » 2 } 

L  AUe.L  ADDRESS  LAbtL  ADDRtSS 

100  1-GOliSO  101  t-OuloSi 


EUNCT1UNS  AM  SLbROUJi<Ea  REEERtNCEL 


LABEL  ADDRESS 


LAHLL  ADDRESS 


LABLL  ADDRESS 


At  1  00  AM  SSyHi 


Tul'AL  SPACE  ALLoCAIEl  =  uUloM  4  / b 


, LH , LS  l  sRLSLp 


